L
longo1202
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下,在FR3里都正常,但是升级FR4后,再红色标注那段报frx10.bpl错
请高手分析下
var
FR: TfrxReport;
FD:TfrxDBDataSet;
MasterData:TfrxMasterData;
begin
if not ADOQuery.IsEmpty then
begin
FD:=TfrxDBDataSet.Create(self);
FD.UserName:='FD';
FD.DataSet:=ADOQuery;
FR:=TfrxReport.Create(self);
FR.LoadFromFile(currPath+'report/车辆日统计.fr3');
FR.DataSets.Add(FD);
MasterData:=TfrxMasterData(FR.Pages[0].FindObject('MasterData1'));
[red]MasterData.DataSet:=FR.DataSets.Items[0].DataSet;[/red]
if FR<>nil then
begin
TfrxMemoView(FR.FindObject('edtDate')).Memo.Text :=edtDate.Text;
FR.ShowReport;
end;
end;
end;
请高手分析下
var
FR: TfrxReport;
FD:TfrxDBDataSet;
MasterData:TfrxMasterData;
begin
if not ADOQuery.IsEmpty then
begin
FD:=TfrxDBDataSet.Create(self);
FD.UserName:='FD';
FD.DataSet:=ADOQuery;
FR:=TfrxReport.Create(self);
FR.LoadFromFile(currPath+'report/车辆日统计.fr3');
FR.DataSets.Add(FD);
MasterData:=TfrxMasterData(FR.Pages[0].FindObject('MasterData1'));
[red]MasterData.DataSet:=FR.DataSets.Items[0].DataSet;[/red]
if FR<>nil then
begin
TfrxMemoView(FR.FindObject('edtDate')).Memo.Text :=edtDate.Text;
FR.ShowReport;
end;
end;
end;