盒子论坛 v2.1

是关于报表的.
两个窗体Form1，form3。form1中有控件datasetzfm，button1。form3中有控件quickrep1，上边放有qrband2，qrband3，qrband4，其bandtype属性依次设为rbtitle，rbcolumnheader，rbdetail。qrband3中放有qrlabel2到qrlabel5。qrband4中放有qrdbtext1到qrdbtext4。现有如下程序：
procedure TForm1.Button1Click(Sender: TObject);
begin
datasetzfm.Close;
datasetzfm.CommandText:=searchsql;
datasetzfm.Open;
if datasetzfm.RecordCount=0 then
  showmessage('对不起，没有查到相关记录！')
else
  begin
   form3.QRLabel2.Caption:='公司';
   form3.QRLabel3.Caption:='收款';
   form3.QRLabel4.Caption:='支付';
   form3.QRLabel5.Caption:='差额';
   form3.QRDBText1.DataSet:=datasetzfm;
   form3.QRDBText2.DataSet:=datasetzfm;
   form3.QRDBText3.DataSet:=datasetzfm;
   form3.QRDBText4.DataSet:=datasetzfm;
   form3.QRDBText1.DataField:='公司';
   form3.QRDBText2.DataField:='收款';
   form3.QRDBText3.DataField:='支付';
   form3.QRDBText4.DataField:='差额';
   form3.QuickRep1.Preview;
end;
现在有两个问题：
1、QRLabel2到QRLabel5均无显示
2、只显示一行数据，而实际查到却有多行数据
是什么地方不对？
如图，上边的是报表，下边的是与datasetzfm相连的DBGrid所显示的查询结果

此帖子包含附件:

大小:14.0K

----------------------------------------------
编程之路真如铁,而今迈步从头越

作者：

smonkey421 (猩猩)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 11:21:20

1楼：

原因好象是你没有关联QuickRep，在form3.QRLabel2.Caption:='公司'前加一句form3.QuickRep1.DataSet := datasetzfm试试！
----------------------------------------------
俺很菜，但俺很执着！！！

作者：

pgh (踏雪)	★☆☆☆☆	-
	普通会员

2004/2/3 12:04:01

2楼：

加入一个明细条，设置好数据源。
----------------------------------------------
-

作者：

chenlei_fly (编程路上一小兵)	★☆☆☆☆	-
	普通会员

2004/2/3 12:36:12

2楼：

>>1楼
太感谢你了,真是一语惊醒梦中人.
----------------------------------------------
编程之路真如铁,而今迈步从头越

作者：

waterstone (waterstone)	★☆☆☆☆	-
	盒子活跃会员

2004/2/3 12:39:25

3楼：

感动！
我建议用FR，你会喜欢的！

----------------------------------------------
我来自农村广阔的田野我的每一个动作都很夸张http://waterstone.51r.com

作者：

smonkey421 (猩猩)	★☆☆☆☆	-
	盒子活跃会员

2004/2/4 17:21:23

4楼：

搞定了哇？楼主~~~~~~~~`
----------------------------------------------
俺很菜，但俺很执着！！！

信息

登陆以后才能回复