Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Table [D6, Paradox]

zuz © (2002-05-18 14:40:00)
Просто как апельсин, но что-то не пашет. Уменя таб., которая постоянно опустошается,но добавление первой новой записи сопровождается добавлением последней старой,а дальше всё как по маслу. То ли я дурю, то ли что? Заранее спасибо!

zuz (2002-05-21 23:16:00) [1]
не , финик, таб у меня не индексированная.
А когда это, кстати, структура должна была заглючить?

finik (2002-05-20 22:19:00) [2]
Подожди, решение странное, оно должно потом заглючить.
Есть проще, если твоя таблица индексированная.
В смысле, если она индексированная, то должно быть так:
table1.Close;
table1.Exclusive:=true;
table1.DeleteIndex("");
table1.EmptyTable;
table1.AddIndex("","kod",[ixprimary]);
table1.Exclusive:=false;
table1.Open;

zuz (2002-05-20 16:45:00) [3]
to Anatoly Podgoretsky
А обработчиков, Анатолий, нема.
to all
Незнаю, можно ли считать вопрос закрытым, но всё одно, спасибо за помощь, люди.

zuz (2002-05-20 16:40:00) [4]
люди, нашел я решение, тупое правда, но пашет
procedure TOrderForm.Button2Click(Sender: TObject); {

Anatoly Podgoretsky (2002-05-20 15:13:00) [5]
Так и в приведенной процедуре добавления нет ничего криминалного, может дело где нибудь в обработчиках?
Надо проверить есть ли они и если есть все ли в порядке

zuz (2002-05-20 14:53:00) [6]
баг, мне кажется, кроется не в очищении, а в заполнении. Таб он очищает - я проверял

Deniz (2002-05-20 08:38:00) [7]
While not dm.OrderTmpTab.IsEmpty do dm.OrderTmpTab.Delete;

zuz (2002-05-19 18:49:00) [8]
мне то тоже, Анатолий, казалось что конструкция стандартная.

zuz (2002-05-19 18:47:00) [9]
да х его з высвечивает и всё

Anatoly Podgoretsky (2002-05-19 18:11:00) [10]
Где, это же нормальная конструкция
While not dm.OrderTmpTab.Eof do dm.OrderTmpTab.Delete;

zuz (2002-05-19 17:15:00) [11]
не канает. мож это глюк какой?

Desdechado (2002-05-18 21:08:00) [12]
TTable.EmptyTable

zuz (2002-05-18 17:23:00) [13]
> еще какие нибудь идеи будут?

zuz (2002-05-18 16:21:00) [14]
убрал. легче не стало.

Anatoly Podgoretsky (2002-05-18 16:05:00) [15]
Это не лишнее, а это именно и есть проблема.

Johnmen (2002-05-18 15:52:00) [16]
>...dm.OrderTmpTab.Next;
это лишнее...

Lusha (2002-05-18 15:51:00) [17]
While not dm.OrderTmpTab.Eof do begin dm.OrderTmpTab.Delete; dm.OrderTmpTab.Next; // вот это лишнее... end;

zuz (2002-05-18 15:43:00) [18]
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("

VAleksey (2002-05-18 15:13:00) [19]
Код покажи

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »