|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как печатать несколько строк датасета (Fast Report)
Delphi 10.4.2, Fast Report 6.
компоненты TFDQuery, TDbGrid. TDbGrid options: RawSelected,MultiSelected, AlwaysShowSelection=true RangeBegin and RangeEnd of FrxDbDataset=rbCurrent. Если выбираю несколько строк (left ctrl+mouse) печатает только одну строку(последную по id в гриде). Как напечатать несколько выбранных строк датасета? Возможно обойти без memotable, clientdataset ? Код:
query1.sql.text:='select * from datailtable where mastertable_id=:id'; query1.open; // dbgrid1.SelectedRows.CurrentRowSelected:=true; //лишний? for i := 0 to DBGrid1.SelectedRows.Count-1 Do Begin DBGrid1.DataSource.DataSet.GotoBookmark(DBGrid1.SelectedRows.Items[i]); end; frxReport1.LoadFromFile(ExtractFilePath(ParamStr(0))+'Doc_id.fr3'); frxReport1.PrepareReport; frxReport1.ShowPreparedReport; |