在动态 生成TfrxDBDataset并加载数据之后,再进行报表文件的加载,否则,数据集会找不到。
frxrprt1.DataSets.Clear; //清空数据集
//加载数据集
frxrprt1.DataSets.Add(frxdbdtst_sfxxi);
frxrprt1.DataSets.Add(frxdbdtst_BaseInfor);
frxrprt1.DataSets.Add(frxdbdtst_LJxxi);
frxrprt1.DataSets.Add(frxdbdtst_zcexxi);
//加载报表 文件。
frxrprt1.LoadFromFile(apppath + 'report\GBjsdan.fr3');
//给报表指定的地方赋值。
TfrxMemoView(frxrprt1.FindObject('Memo62')).text := (CalcHJ(GB_yfqfx));
//变量赋值
frxReport1.Variables['MemoHosName'] := QuotedStr(sCoName);