|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Печать пустых столбцов
У меня такая проблема!
На форме находиться компонент DBGridEh, в нем отображаются колонки "Фамилия", "Имя" и "Отчество". Я решил сделать пустую колонку "ФИО" и три своих колонки поместил в одну. Вот код: Код:
procedure TfMain.DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumnEh; State: TGridDrawState); var s: String; begin //если это пустой столбец if Column.Index = 1 then begin if fDM.TLichData['FAM'] <> Null then s:= fDM.TLichData['FAM'] + ' '; if fDM.TLichData['IMA'] <> Null then s:= s + Copy(fDM.TLichData['IMA'], 1, 1) + '.'; if fDM.TLichData['OTCH'] <> Null then s:= s + Copy(fDM.TLichData['OTCH'], 1, 1)+ '.'; DBGridEh1.Canvas.TextOut(Rect.Left, Rect.Top, s); end; //if До этого выводил например: Петров | Иван | Сергеевич После стал выводить: |Петров И.С.| Стал выводить эту таблицу на печать с помощью QuickRep, но там нельзя выбрать мою колонку "ФИО" т.е ее нет в базу. А если помещать колонки "Фамилия", "Имя" и "Отчество" то не влезает на страницу, это не устраивает меня. Я решил воспользоваться компонентом PrintDBGridEh но и тут проблема появилась, при выводе на печать колонка "ФИО" пустая. Вот и прошу подсказать мне как можно распечатать пустую колонку чтобы на печать выводилось |Петров И.С.| |
#2
|
||||
|
||||
Сформируй запрос так как тебе нужно, и полученный датасет передавай репорту.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#3
|
|||
|
|||
Цитата:
Можете написать на примере? |