Форум: "Базы";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Написал кодик через SQL но уж лчень медленно, как его под Table переделать не могу понять :)   Найти похожие ветки 

← →
Dreamer   (2002-02-07 19:01) [0]

Помогите плз.

Form3.Query2.Close;
Form3.Query2.ParamByName("Sec").AsInteger := Time3;
Form3.Query2.Open;
e2:=Form3.Query2.FieldByName ("nalet"+IntToStr(Schetchik)).AsInteger;
with form3.Query2 do
begin
edit;
if 0<FieldValues["nalet"+IntToStr(Schetchik)] then
FieldValues["nalet"+IntToStr(Schetchik)]:=FieldValues["nalet"+IntToStr(Schetchik)]+e1
else
FieldValues["nalet"+IntToStr(Schetchik)]:=e1;
post;
end;

---

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

Форум: "Базы";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c