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();

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