Форум: "Базы";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
Вниз
Table Найти похожие ветки
← →
zuz (2002-05-18 14:40) [0]Просто как апельсин, но что-то не пашет. Уменя таб., которая постоянно опустошается,но добавление первой новой записи сопровождается добавлением последней старой,а дальше всё как по маслу. То ли я дурю, то ли что? Заранее спасибо!
← →
VAleksey (2002-05-18 15:13) [1]Код покажи
← →
zuz (2002-05-18 15:43) [2]procedure TOrderForm.Button1Click(Sender: TObject);
begin
{dblookupcombobox}
if (ProcCaseCombo.Text="") and (DetalCaseCombo.Text="") then
ind:="1";
if (ProcCaseCombo.Text<>"") and (DetalCaseCombo.Text<>"") then
ind:="2";
if (ProcCaseCombo.Text<>"") and (DetalCaseCombo.Text="") then
ind:="3";
if (ProcCaseCombo.Text="") and (DetalCaseCombo.Text<>"") then
ind:="4";
case ind of
"1":showmessage("
← →
Lusha (2002-05-18 15:51) [3]
While not dm.OrderTmpTab.Eof do
begin
dm.OrderTmpTab.Delete;
dm.OrderTmpTab.Next; // вот это лишнее...
end;
← →
Johnmen (2002-05-18 15:52) [4]>...dm.OrderTmpTab.Next;
это лишнее...
← →
Anatoly Podgoretsky (2002-05-18 16:05) [5]Это не лишнее, а это именно и есть проблема.
← →
zuz (2002-05-18 16:21) [6]убрал. легче не стало.
← →
zuz (2002-05-18 17:23) [7]> еще какие нибудь идеи будут?
← →
Desdechado (2002-05-18 21:08) [8]TTable.EmptyTable
← →
zuz (2002-05-19 17:15) [9]не канает. мож это глюк какой?
← →
Anatoly Podgoretsky (2002-05-19 18:11) [10]Где, это же нормальная конструкция
While not dm.OrderTmpTab.Eof do dm.OrderTmpTab.Delete;
← →
zuz (2002-05-19 18:47) [11]да х его з высвечивает и всё
← →
zuz (2002-05-19 18:49) [12]мне то тоже, Анатолий, казалось что конструкция стандартная.
← →
Deniz (2002-05-20 08:38) [13]
While not dm.OrderTmpTab.IsEmpty do
dm.OrderTmpTab.Delete;
← →
zuz (2002-05-20 14:53) [14]баг, мне кажется, кроется не в очищении, а в заполнении. Таб он очищает - я проверял
← →
Anatoly Podgoretsky (2002-05-20 15:13) [15]Так и в приведенной процедуре добавления нет ничего криминалного, может дело где нибудь в обработчиках?
Надо проверить есть ли они и если есть все ли в порядке
← →
zuz (2002-05-20 16:40) [16]люди, нашел я решение, тупое правда, но пашет
procedure TOrderForm.Button2Click(Sender: TObject); {
← →
zuz (2002-05-20 16:45) [17]to Anatoly Podgoretsky
А обработчиков, Анатолий, нема.
to all
Незнаю, можно ли считать вопрос закрытым, но всё одно, спасибо за помощь, люди.
← →
finik (2002-05-20 22:19) [18]Подожди, решение странное, оно должно потом заглючить.
Есть проще, если твоя таблица индексированная.
В смысле, если она индексированная, то должно быть так:
table1.Close;
table1.Exclusive:=true;
table1.DeleteIndex("");
table1.EmptyTable;
table1.AddIndex("","kod",[ixprimary]);
table1.Exclusive:=false;
table1.Open;
← →
zuz (2002-05-21 23:16) [19]не , финик, таб у меня не индексированная.
А когда это, кстати, структура должна была заглючить?
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.004 c
