|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Сложение определенных ячеек Dbgrid
Привет всем! Создаю базу данных в Delphi 7 (paradox). В программе есть несколько форм, на которых расположенны базы данных DBGrid. У каждой быз данных отдельный файл .db . В каждой базе поля одинаковые (например кол-во, сумма), но значения в для этих полей разные. На главной форме должна быть общая база. Нужно, к примеру, ячейку A(2,5) на форме t1 просуммировать с ячейкой A(2,5) на форме t2 и A(2,5) на форме t3 и вывести результат суммы на главную форму в ячейку A(2,5). Каким образом это реализовать?
|
#2
|
|||
|
|||
Вообще то DBGrid это не база данных, а копонент отображения данных в табличном виде. Доступ к ячейкам осуществляется через соответствующий набор данных. Если у тебя это просто таблица BDE то Table.
Например. var x,y,z,i:integer; Table1.RecNo:=5; //Переходим на пятую строчку Table1 x:=Table1.FieldByName('summa').Asinteger ;//записываем значение ячейки 5 столбца summa Table2.RecNo:=5; двлее аналогично по другим таблицам. y:=Table2.FieldByName('summa').Asinteger; Table3.RecNo:=5; z:=Table3.FieldByName('summa').Asinteger; i:=x+y+z;// вот тебе и результат, который надо вписать в 5 ячейку столбца summa итоговой таблицы. Допустим так:Table4.FieldByName('summa').Asinteger:=i; Это частный случай. Если хочешь можешь заганть это дело в цикл. Предвижу трудности. У тебя все на разных формах. Если не получится пиши. |