代码如下:
strSql := 'select * from CC_CallRecord' ;
DataModule1.ADOQuery2.Close;
DataModule1.ADOQuery2.SQL.Text :=strSql;
DataModule1.ADOQuery2.Open(); Crpe1.ReportName := 'C:\Agent\Reports\calldetails.rpt';
Crpe1.DiscardSavedData;
Crpe1.Tables[0].DataPointer := DataModule1.CrpeDS1.DataPointer; //报错误行 Application.CreateForm(TfrmReport,frmReport); Crpe1.Output := toWindow; //显示方式,包括:(toWindow, toPrinter, toExport)
Crpe1.WindowParent := frmReport;
Crpe1.WindowStyle.BorderStyle := bsNone;
crpe1.Refresh;
crpe1.Execute;
frmReport.Show;错误行:
Crpe1.Tables[0].DataPointer := DataModule1.CrpeDS1.DataPointer; //报错误行报错提示
Error: 999 E
Tables[0].SetBytes <PEGetNthTablePrivateInfo>请教各位!
strSql := 'select * from CC_CallRecord' ;
DataModule1.ADOQuery2.Close;
DataModule1.ADOQuery2.SQL.Text :=strSql;
DataModule1.ADOQuery2.Open(); Crpe1.ReportName := 'C:\Agent\Reports\calldetails.rpt';
Crpe1.DiscardSavedData;
Crpe1.Tables[0].DataPointer := DataModule1.CrpeDS1.DataPointer; //报错误行 Application.CreateForm(TfrmReport,frmReport); Crpe1.Output := toWindow; //显示方式,包括:(toWindow, toPrinter, toExport)
Crpe1.WindowParent := frmReport;
Crpe1.WindowStyle.BorderStyle := bsNone;
crpe1.Refresh;
crpe1.Execute;
frmReport.Show;错误行:
Crpe1.Tables[0].DataPointer := DataModule1.CrpeDS1.DataPointer; //报错误行报错提示
Error: 999 E
Tables[0].SetBytes <PEGetNthTablePrivateInfo>请教各位!
DataModule1.CrpeDS1 := ADOQuery2