在fastreport中要做以下功能的报表:
正常显示情况:
Report Title: 工序号 工序名 时间
Group Header: 类别为裁床
Master Data: 1 A 10 2 P 51
2 B 8 ...............
3 C 15 合共:80秒
............... 类别为手工
Group Footer: 合共:120秒 1 EO 20
类别为车缝 2 W 8
1 HK 10 3 DE 15
--------------------------------------------------------
第1页共2页
4 FY 15 26 QY 3
5 UOO 15 27 TH 8
............... 28 I 12
25 JY 5 合共:173秒
Report Summary: 总共:373秒
--------------------------------------------------------
Page Footer: 第2页共2页
不正常显示情况:
Report Title: 工序号 工序名 时间
Group Header: 类别为裁床
Master Data: 1 A 10 2 P 51
2 B 8 ...............
3 C 15 合共:80秒
............... 类别为手工
Group Footer: 合共:120秒 1 EO 20
类别为车缝 2 W 8
1 HK 10 3 DE 15
--------------------------------------------------------
第1页共2页
4 FY 15 26 QY 3
5 UOO 15 27 TH 8
............... 28 I 12
25 JY 5 合共:173秒
Report Summary: 总共:373秒
--------------------------------------------------------
Page Footer: 第2页共2页直接放置控件的话,再预览是能正常显示,但在程序中用代码就出现不正常显示情况,代码如下:
QueryS.Close;
QueryS.ConnectionString:=strConn;
QueryS.Prepared;
QueryS.SQL.Clear;
QueryS.SQL.Add('Select A.Ord_No,A.ProdStep,B.Name,A.OpenTime,A.P_Type From OM_S A Left Join OrderType B On A.P_Type=B.Type '
+' Where A.Proj='+''''+Trim(edtProj.Text)+''''+' AND A.Lev='+''''+Trim(edtLev.Text)+''''+' Order By A.P_Type,A.Ord_No');
QueryS.Open;DataMod1.frDBDataSet1.DataSet:=QueryS;
DataMod1.frReport.LoadFromFile(Path+'\Report\OM01.frf');
DataMod1.frReport.ShowReport;望高人指点。
正常显示情况:
Report Title: 工序号 工序名 时间
Group Header: 类别为裁床
Master Data: 1 A 10 2 P 51
2 B 8 ...............
3 C 15 合共:80秒
............... 类别为手工
Group Footer: 合共:120秒 1 EO 20
类别为车缝 2 W 8
1 HK 10 3 DE 15
--------------------------------------------------------
第1页共2页
4 FY 15 26 QY 3
5 UOO 15 27 TH 8
............... 28 I 12
25 JY 5 合共:173秒
Report Summary: 总共:373秒
--------------------------------------------------------
Page Footer: 第2页共2页
不正常显示情况:
Report Title: 工序号 工序名 时间
Group Header: 类别为裁床
Master Data: 1 A 10 2 P 51
2 B 8 ...............
3 C 15 合共:80秒
............... 类别为手工
Group Footer: 合共:120秒 1 EO 20
类别为车缝 2 W 8
1 HK 10 3 DE 15
--------------------------------------------------------
第1页共2页
4 FY 15 26 QY 3
5 UOO 15 27 TH 8
............... 28 I 12
25 JY 5 合共:173秒
Report Summary: 总共:373秒
--------------------------------------------------------
Page Footer: 第2页共2页直接放置控件的话,再预览是能正常显示,但在程序中用代码就出现不正常显示情况,代码如下:
QueryS.Close;
QueryS.ConnectionString:=strConn;
QueryS.Prepared;
QueryS.SQL.Clear;
QueryS.SQL.Add('Select A.Ord_No,A.ProdStep,B.Name,A.OpenTime,A.P_Type From OM_S A Left Join OrderType B On A.P_Type=B.Type '
+' Where A.Proj='+''''+Trim(edtProj.Text)+''''+' AND A.Lev='+''''+Trim(edtLev.Text)+''''+' Order By A.P_Type,A.Ord_No');
QueryS.Open;DataMod1.frDBDataSet1.DataSet:=QueryS;
DataMod1.frReport.LoadFromFile(Path+'\Report\OM01.frf');
DataMod1.frReport.ShowReport;望高人指点。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货