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]

баг, мне кажется, кроется не в очищении, а в заполнении. Таб он очищает - я проверял

Так и в приведенной процедуре добавления нет ничего криминалного, может дело где нибудь в обработчиках?
Надо проверить есть ли они и если есть все ли в порядке

← →
zuz (2002-05-20 16:40) [16]

люди, нашел я решение, тупое правда, но пашет
procedure TOrderForm.Button2Click(Sender: TObject); {

← →
zuz (2002-05-20 16:45) [17]

to Anatoly Podgoretsky
А обработчиков, Анатолий, нема.
to all
Незнаю, можно ли считать вопрос закрытым, но всё одно, спасибо за помощь, люди.

Подожди, решение странное, оно должно потом заглючить.
Есть проще, если твоя таблица индексированная.
В смысле, если она индексированная, то должно быть так:
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]

не , финик, таб у меня не индексированная.
А когда это, кстати, структура должна была заглючить?

Table Найти похожие ветки