paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 12:40:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, list fields from datasources, from Christian, issue #15951

Browse Source 
git-svn-id: trunk@23930 -
This commit is contained in:
jesus 2010-03-10 22:01:00 +00:00
parent ccb071d8e3
commit d6c05f5619
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazreport/source/lr_iflds.pas
View File

@ -57,7 +57,10 @@ uses LR_Class, LR_Const, LR_Utils, DB;
procedure TfrInsertFieldsForm.FormShow(Sender: TObject);
begin
DataSet := nil;
frGetComponents(CurReport.Owner, TDataSet, DatasetCB.Items, nil);
if Curreport.DataType = dtDataSet then
frGetComponents(CurReport.Owner, TDataSet, DatasetCB.Items, nil)
else
frGetComponents(CurReport.Owner, TDataSource, DatasetCB.Items, nil);
if DatasetCB.Items.Count > 0 then
DatasetCB.ItemIndex := 0;
GetFields;