Не обновляются данные

← →
paule (2005-06-08 05:15) [0]

ПРивожу пример кода. Почемуто данные в таблице не обновляются, а остаются преждними. Может кто что скажет?

begin
with DataModule1.ADOTechDat do
begin
for i:=1 to RecordCount do
begin
edit;
FieldByName("A_SN").AsFloat:=StrToFloat((TechDat.FindComponent("E"+FieldByName("tipst").AsString+"_1") as TEdit).Text);
FieldByName("U").AsFloat:=StrToFloat((TechDat.FindComponent("E"+FieldByName("tipst").AsString+"_2") as TEdit).Text);
FieldByName("B").AsFloat:=StrToFloat((TechDat.FindComponent("E"+FieldByName("tipst").AsString+"_3") as TEdit).Text);
FieldByName("A_REZ").AsFloat:=StrToFloat((TechDat.FindComponent("E"+FieldByName("tipst").AsString+"_4") as TEdit).Text);
Post;
Next;
end;
end;
close;
end;

← →
ЮЮ © (2005-06-08 05:21) [1]

RecordCount может быть равен -1 и цикл не выполнится.
Обход DataSeta лучше делать так:
DataSet.First;
while not DataSet.EOF do begin
...
DataSet.Next;
end;

← →
paule (2005-06-08 05:44) [2]

дело в том, что цикл точно выполняется, я отладчиком проверял

подтвердить транзакцию не пробовал?

Не обновляются данные Найти похожие ветки