powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / программный footers в TDBGridEh
5 сообщений из 5, страница 1 из 1
программный footers в TDBGridEh
    #32354679
masen'ky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите где я запутался. Через инспектор подвал делаю без проблем, а программно запутался ??? Хочу в одном гриде показывать разные запросы и соотвественно менять подвалы. Запросы меняю программно через Q.sql.add()
А вот прописать новые footersы УВЫ ! Помогите please !
...
Рейтинг: 0 / 0
программный footers в TDBGridEh
    #32354695
Adony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как хоть делали-то?
...
Рейтинг: 0 / 0
программный footers в TDBGridEh
    #32354731
masen'ky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Запрос типа

REP.Active:=false;
REP.SQL.Clear;
REP.SQL.Add('SELECT DATA_UPL as ДАТА, SUM_ZALOG as ЗАЛОГ, SUM_UDER as УДЕРЖАНО, OCTATOK');
REP.SQL.Add(' FROM "Zalog" Zalog');
REP.SQL.Add(' WHERE ZALOG."DATA_UPL" BETWEEN :D1 AND :D2');
REP.Params[0].asDate := strtodate(PER.F_PERIOD.Date1.Text);
REP.Params[1].asDate := strtodate(PER.F_PERIOD.Date2.text);
REP.Active:=true;

// здесь хотел бы прописать подвал для запроса

TABL.SumList.Active:=true; // TABL это это grideh

Не могу программно прописать параметры для столбцов. Из текста через инспектор это выглядит ~ так

Columns = <
item
Footers = <
item
ValueType = fvtCount
FieldName = 'DATA_UPL'
end>
end>
fvtCount для столбца с датой а fvtSum для числовых столбцов

пытаюсь
TABL.Columns.Items[0].FieldName;
TABL.Columns.Items[0].Footers[0].Value:=...
но выдает ошибки
Подскажите как правильно ! Заранее благодарю откликнувшихся.
...
Рейтинг: 0 / 0
программный footers в TDBGridEh
    #32354757
Adony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
TABL.Columns.Items[0].Footer.Valuetype:=fvtCount;
TABL.Columns.Items[0].Footer.FieldName:='DATA_UPL';
??
...
Рейтинг: 0 / 0
программный footers в TDBGridEh
    #32355099
masen'ky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TABL.Columns.Items[0].Footer.Valuetype:=fvtCount;
TABL.Columns.Items[0].Footer.FieldName:='DATA_UPL';

ADONY Спасибо понял. Но появился другой вопрос. При изменении запроса (то бишь новый) когда меняются поля это вещь не проходит, а работает ТОЛЬКО с самым первым ? Где у меня прокол ?
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / программный footers в TDBGridEh
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]