新手提问:为什么使用quickreport只能提取一条记录?(50分)

  • 主题发起人 主题发起人 qj_01
  • 开始时间 开始时间
Q

qj_01

Unregistered / Unconfirmed
GUEST, unregistred user!
取数代码如下:
procedure TF_RPT_BFJL.FormCreate(Sender: TObject);
var
s, s1, s2: string;
i: integer;
begin

with f_reca_dm.qy_wangy do
begin
close;
sql.Clear;
sql.Add('select dw_no,bffs,lx,link,email,gjzt from bfjl');
open;

S1 := fieldbyname('dw_no').AsString;
QRDBText1.Caption := fieldbyname('dw_no').AsString;
QRDBText2.Caption := fieldbyname('bffs').AsString;
QRDBText3.Caption := fieldbyname('lx').AsString;
QRDBText4.Caption := fieldbyname('link').AsString;
QRDBText5.Caption := fieldbyname('email').AsString;
QRDBText6.Caption := fieldbyname('gjzt').AsString;

close;
end;
end;
我的表里有十条记录,但是只显示出第一条?
 
你的报表的dateset属性设置成 f_reca_dm.qy_wangy
并且要把你的这些QRDBText放到DetailBand里面
 
同意楼上的意见，属性没有设置好。
 
谢谢,属性设置好了以后一条记录都出不来~~~~我晕
 
QRDBText的属性你设置Dateset 和datefield对应关系设置好
 
我一个一个对了一遍,Dateset是f_reca_dm.qy_wangy ,datefield一一对应的,没有错误~~难道是代码写的有问题?
 
显示在报表控件上的代码根本不用写，设置好字段属性就ＯＫ了。
 
不写代码,oncreat的时候字段会自动显示?
 
QRDBText.Caption 赋值全部去掉
 
我先试试看吧,多谢各位[:)],如果不懂的地方再发帖了
 
QRDBText1.Caption := fieldbyname('dw_no').AsString;
QRDBText2.Caption := fieldbyname('bffs').AsString;
QRDBText3.Caption := fieldbyname('lx').AsString;
QRDBText4.Caption := fieldbyname('link').AsString;
QRDBText5.Caption := fieldbyname('email').AsString;
不明白你要用Caption 何用？
你是要列名还是要具体数据？
 
具体数据 不是列名
 
您必须登录或注册才可回复。

Similar threads

R
为什么用LAST取不到数据库的最后一条记录(100分)
回复
7
查看
289
nanshan
N
L
如何提取一个大型数据库的某记录的下一条记录(50)
回复
6
查看
215
chbqq
C
M
使用ADOQuery查询Access数据库（表中有20000条以上记录），为什么只能查询到前面10000条记录？ ( 积分: 100 )
回复
9
查看
436
meizhou_ren
M
M
请教一个关于progress bar的问题,不知为什么TIMER1事件不执行(50分)
回复
2
查看
529
mwp316
M
Q
文件流与数据库的问题:为什么执行时出现Stream read error? ( 积分: 50 )
回复
4
查看
702
QDseashore
Q
后退
顶部