Вопрос (Delphi, FastReport, EhLib, FIBDataset)

Dim@ 22.05.2004 - 12:05 | Здавствуйте. В FireBird-овской базе есть таблица Komplekt, а в ней - поле Razmer (целочисленное). Проблема 1: В FastReport-овском отчет в MasterData выводятся записи этой таблицы. В Memo1 надо вывести сумму значений поля Razmer, если все значения этого поля одинаковые; и вывести '-----' (прочерк), если хотя бы одно значение отличается. Проблема 2: В Delphi-ской программе есть Ehlib-овский грид DBGridEh1. Он отображает записи вышеуказанной таблицы. Надо в Footer-е вывести сумму значений поля Razmer, если все значения одинаковые, и '------' - в противном случае. Все это надо сделать в обработчике события OnGetFooterParams, т.е. нет возможности просмотреть все записи методами First, while not eof Next. Можно использовать Ehlib-овский DBSumList. В объекте TField FIB-овского датасета dKomplektRazmer есть функция GetData(Buf:Pointer):Boolean; Пробовал в качестве Buf использовать (a:array[0..100]of Integer; b:Pointer; .... b:=@a ... if dKomplektRazmer.GetData(b) then ...), возращает True, но данные не читает (вернее читает, но помешает в нулевой элемент массива). Есть другой (работающий способ). Создаю другой датасет с SelectSQL: select SUM(RAZMER) as KOL from KOMLPEKT group by RAZMER , и если возращается одна запись, то все размеры одинаковые. Все работает, но может, кто-нибудь подскажет, как сделать по другому, баз использования ещё одного датасета? Заранее благодарен.

>>