| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

dbgrid [D6, MSSQL]

Roman9 ©   (2005-08-17 13:40:00) 

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

---

alex_***   (2005-08-17 16:10:00) [1]

+DisableControls()/EnableControls();

---

dolmat   (2005-08-17 13:57:00) [2]

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;

---

Наверх