Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: 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 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.044 c
3-1118048953
вп
2005-06-06 13:09
2005.07.18
Создание запроса или ХП как альтернатива временной таблице


6-1113119643
DimDim
2005-04-10 11:54
2005.07.18
Системный каталог на соседнем компьютере?


1-1120393211
kyro
2005-07-03 16:20
2005.07.18
События на клавиатуру


1-1120043267
Chlavik
2005-06-29 15:07
2005.07.18
ListView в дилоговом ресурсе (res)


9-1112803576
Sis3
2005-04-06 20:06
2005.07.18
Как распечатать картинку созданную в OpenGl