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

Вниз

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

← →
Roman9   (2005-08-17 13:40) [0]

мастера подскажите
как просуммировать колонку до указателя (курсора) в dbgride
заранее спасибо

---

← →
dolmat   (2005-08-17 13:57) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
  SavePlace: TBookmark;
  r:real;
begin
r:=0;
with table1 do
  begin
   SavePlace := GetBookmark;
while not Bof do begin
r:=r+table1field.asfloat;
Prior;
end;
GotoBookmark(SavePlace);
FreeBookmark(SavePlace);
end;
end;

---

← →
alex_***   (2005-08-17 16:10) [2]

+DisableControls()/EnableControls();

---

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

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

Наверх

Память: 0.46 MB
Время: 0.036 c