X
xyy0314
Unregistered / Unconfirmed
GUEST, unregistred user!
在服务器段用了adoconnection,adoquery,datasetprovider,客户机段用了dcomconnection,
clientdataset,我想通过对clientdataset查询后再将数据导入报表中,使用语句如下:
(报表控件用了quickrep和qrdbtext)
with datamodule2.ClientDataSet9 do
begin
datamodule2.ClientDataSet9.Close;
datamodule2.ClientDataSet9.CommandText:=' select 商品代号,数量 from 库存表 where 库存表.商品代号 = ''10025''';
datamodule2.ClientDataSet9.open;
qrdbtext1.DataSet := datamodule2.ClientDataSet9;
qrdbtext2.DataSet := datamodule2.ClientDataSet9;
qrdbtext1.DataField := datamodule2.ClientDataSet9['商品代号'] ;
qrdbtext2.DataField := datamodule2.ClientDataSet9['数量'] ;
if datamodule2.ClientDataSet9.RecNo=0 then
begin
showmessage('对不起,此记录不存在,请查找别的商品代号!');
exit;
end
else
begin
showmessage('查找成功!');
end;
end;
quickrep1.Preview;
但是,结果只显示第一条纪录,为什么?怎么解决?还有什么好办法?多谢
clientdataset,我想通过对clientdataset查询后再将数据导入报表中,使用语句如下:
(报表控件用了quickrep和qrdbtext)
with datamodule2.ClientDataSet9 do
begin
datamodule2.ClientDataSet9.Close;
datamodule2.ClientDataSet9.CommandText:=' select 商品代号,数量 from 库存表 where 库存表.商品代号 = ''10025''';
datamodule2.ClientDataSet9.open;
qrdbtext1.DataSet := datamodule2.ClientDataSet9;
qrdbtext2.DataSet := datamodule2.ClientDataSet9;
qrdbtext1.DataField := datamodule2.ClientDataSet9['商品代号'] ;
qrdbtext2.DataField := datamodule2.ClientDataSet9['数量'] ;
if datamodule2.ClientDataSet9.RecNo=0 then
begin
showmessage('对不起,此记录不存在,请查找别的商品代号!');
exit;
end
else
begin
showmessage('查找成功!');
end;
end;
quickrep1.Preview;
但是,结果只显示第一条纪录,为什么?怎么解决?还有什么好办法?多谢