Скачать: CL | DM;

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

← →
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]

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

---

← →
Desdechado ©   (2005-06-08 11:05) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c