TTable

← →
alex810 © (2007-08-08 09:34) [0]

Здраствуйте. Подскажите пожалуйста почему у меня при Table1.First не происходит переход началу набора данных?

← →
Сергей М. © (2007-08-08 09:36) [1]

С чего ты это взял ?

← →
alex810 © (2007-08-08 09:37) [2]

Делаю

while not TTable.Eof do begin end;
берет данные с последней строки

← →
Elen © (2007-08-08 09:39) [3]

> alex810 © (08.08.07 09:37) [2]

А причем тут Table1.First? И где тут написано что берет?

← →
iXT © (2007-08-08 09:40) [4]

Ну, при коде в [2] странно что вообще что-то "берет", хотя где и что я так и не увидел.

← →
alex810 © (2007-08-08 09:42) [5]

При выполнении в пошаговом режиме данного кода происходит проверка всего один раз.
TGlavnay.First; while not TGlavnay.Eof do begin for i:=1 to doGrid.RowCount-1 do begin if TGlavnayKLUCHPOLE.AsString=doGrid.Cells[49,i] then begin TGlavnay.Edit; TGlavnayKOLICHESTVO.AsString:=doGrid.Cells[6,i]; TGlavnaySUMA.AsString:=doGrid.Cells[11,i]; TGlavnayMESACREMONTA.AsString:=doGrid.Cells[15,i]; blok:=doGrid.Cells[46,i]; TGlavnayENERGOBLOK.AsString:=blok; end; end; TGlavnay.Next; end;

← →
Reindeer Moss Eater © (2007-08-08 09:47) [6]

Как написано, так и работает.

← →
iXT © (2007-08-08 09:49) [7]

> [5] alex810 © (08.08.07 09:42)

А чего ты ждешь от такого кода?
Во первых POST вирусы сгрызли,
во вторых TGlavnayKOLICHESTVO и т.п. - Это что?

← →
alex810 © (2007-08-08 09:51) [8]

> во вторых TGlavnayKOLICHESTVO и т.п. - Это что?

Поля в таблице

> Как написано, так и работает.

А, что не правильно ?

← →
{RASkov} © (2007-08-08 09:53) [9]

> [5] alex810 © (08.08.07 09:42)

Напиши вот такой код и убедись, что все работает:
TGlavnay.First; while not TGlavnay.Eof do begin ShowMessage(TGlavnayKLUCHPOLE.AsString); TGlavnay.Next; end;
:o)
Ну и про Posт... сказали уже

← →
alex810 © (2007-08-08 09:56) [10]

> Ну и про Posт... сказали уже

Что такое Posт. В Web программировании знаю а тут?

← →
{RASkov} © (2007-08-08 09:59) [11]

> [10] alex810 © (08.08.07 09:56)

Сохранение измененных записей в TTable
Table1.Post+F1

← →
iXT © (2007-08-08 10:00) [12]

> [10] alex810 © (08.08.07 09:56)

А что такое Edit?

← →
iXT © (2007-08-08 10:02) [13]

> [8] alex810 © (08.08.07 09:51)

А FieldByName - не модно?

← →
alex810 © (2007-08-08 10:02) [14]

> Напиши вот такой код и убедись, что все работает:

Да работает но мой не работает.

> Сохранение измененных записей в TTable

Переход на предыдущую строку?
Если так то какая разница, что на слудующую, что на предыдущую?

← →
alex810 © (2007-08-08 10:04) [15]

> А FieldByName - не модно?

TGlavnay.FieldByName("TGlavnay").AsString
Так в чем разница объясните?

> > Сохранение измененных записей в TTable
>
> Переход на предыдущую строку?
> Если так то какая разница, что на слудующую, что на предыдущую?

Кто говорил про какой-то переход?

> TGlavnay.FieldByName("TGlavnay").AsString
> Так в чем разница объясните?

Извените перепутал
В чем разница так
TGlavnay.FieldByName("KLUCHPOLE").AsString

или так?
TGlavnayKLUCHPOLE

> [15] alex810 © (08.08.07 10:04)
>
> > А FieldByName - не модно?
>
> TGlavnay.FieldByName("TGlavnay").AsString
> Так в чем разница объясните?

Ну во первых в читаемости кода. Откуда я знаю, что TGlavnayKLUCHPOLE: TEdit - это не правда?
2 - Вы пользуетесь методом TTable
3 - Скорее вот так: TGlavnay.FieldByName("KLUCHPOLE").AsString
4 - F1 никто не отменял

> Если так то какая разница, что на слудующую, что на предыдущую?

В индексированном НД только что отредактированная тобой любая непоследняя запись вполне может стать последней, что ты видимо и наблюдаешь, судя по однократному выполнению while not Eof - условия.

> Кто говорил про какой-то переход?

Извените перепутал с Prior

> [17] alex810 © (08.08.07 10:07)
> В чем разница

В первом случае

> TGlavnay.FieldByName("KLUCHPOLE").AsString

обращение к полю "KLUCHPOLE" и его свойству AsString
А во втором....

> TGlavnayKLUCHPOLE

просто написано имя компонента, скорее всего...
Наверное хотел написать так:

TGlavnay.FieldByName("KLUCHPOLE").AsString
или так?
TGlavnayKLUCHPOLE.AsString
?
Разницы никакой.... Видимо у тебя в дизайне созданы компоненты для полей таблицы, имхо, лучше ими пользоваться тогда уж...
т.е. второй случай TGlavnayKLUCHPOLE.{Value}AsString
Хотя кому как... См [18]...

С учетом [19] сначала сохроняй текущий индекс, потом отключи его Table.IndexName:="";
Затем вся эта твоя операция, и после нее возврат сохраненного индекса...

> С учетом [19] сначала сохроняй текущий индекс, потом отключи
> его Table.IndexName:="";

Это отключает только вторичный индекс.

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