数据如下:
a1 a2
收 100
收 50
支 60
支 80
收 20在报表中有3个memo,其中memo1显示a1字段,memo2显示a1为“收”的a2数据,memo3显示a1为“支”的a2数据,如下:
memo1 memo2 memo3
收 100
收 50
支 60
支 80
收 20请问:要想实现上的报表,条件怎么给(我想在报表设计中加入条件)?在什么地方给?谢谢!!
a1 a2
收 100
收 50
支 60
支 80
收 20在报表中有3个memo,其中memo1显示a1字段,memo2显示a1为“收”的a2数据,memo3显示a1为“支”的a2数据,如下:
memo1 memo2 memo3
收 100
收 50
支 60
支 80
收 20请问:要想实现上的报表,条件怎么给(我想在报表设计中加入条件)?在什么地方给?谢谢!!
解决方案 »
- 新手交流贴,给firebird.FireBird的日期预定义字符的事情。
- 急需Delphi串口手机短信收发程序
- 菜鸟求助关于DataSet的小问题
- 如何在子过程或者函数中传递二维数组?
- 一个关于 ExpressQuantumGrid组件 的问题?
- 我用idTCPserver和idTCPclient,如何实现文件的传输,主要是二进制文件?
- 新病毒,dext第一时间解决
- 一个超简单的问题(白给你分)
- 这个sql怎么写?急用!!谢谢
- sql server2000多数据库数据交换问题
- 怎样给一个TDataSet添加BeforePost事件?
- ole型字段如何创建?SQL.Add('EMIT_IMG ole,')对么?再线等!
if [query1."a1"]='收' then memo2.text:=[query1."a2"] else memo2.text.clear;
if [query1."a1"]='支' then memo3.text:=[query1."a2"] else memo3.text.clear;
可就是什么都不显示了,不知道如何实现,请教各位高手!!
var TmpStr:string;
begin
if ADODateSet1.fields('a1').asstring='收' then Tmpstr:=Tmpstr+'收'+dupestring(' ',10)+ADODateSet1.fields('a2').asstring+#13+#10;
if ADODateSet1.fields('a1').asstring='支' then Tmpstr:=Tmpstr+'支'+dupestring(' ',10)+dupestring(' ',10)+ADODateSet1.fields('a2').asstring+#13+#10;
frVariables['MemoStr']:=Tmpstr;
frReport1.ShowReport;
end;
我觉得在Page1的OnBeforeprint中写入语句应该能行的
现在显示是这样的:
100
150.12
12.2
需要实现:
100.00
150.12
12.20
就可以了.