有表1:A
字段名 LAOBAONO,LAOBAONAME
1 毛巾
2 手套
表2:B
字段名 ZHIGONGNO,LAOBAONO,LINGYONGNUM
1 1 3
1 2 4
2 1 5
2 2 5
要求输出报表C:
LAOBAONO,LINGYONGNUM
1 8
2 9程序如下:begin
cxdate:=combobox1.text+combobox2.text;
qrlabel7.Caption:='青啤二厂'+combobox1.Text+'年'+combobox2.text+'月份'+dblookupcombobox1.Text+'劳保用品领用汇总表';
qrdbtext1.DataSet:=datamodule2.query1;
qrdbtext1.DataField:='a';
qrdbtext2.DataSet:=datamodule2.query1;
qrdbtext2.DataField:='b';
qrdbtext3.DataSet:=datamodule2.Query1;
qrdbtext3.DataField:='c';
qrdbtext4.DataSet:=datamodule2.Query1;
qrdbtext4.DataField:='d';
with datamodule2.bumentable do
begin
active:=true;
locate('bumenname',dblookupcombobox1.Text,[]);
bumenno1:=datamodule2.bumentable.fieldbyname('bumenno').asinteger;
active:=false;
end;
with datamodule2.laobaoTable do with datamodule2.Query1 do
begin
databasename:='laobao';
datasource:=datamodule2.lingyongds;
close;
sql.Clear;
sql.Add('select laobao.laobaono as a,laobaoname as b,sum(lingyong.lingyongnum) as c');
sql.add(' from laobao,lingyong');
sql.add('where lingyong.bumenno='+inttostr(bumenno1));
sql.add(' and lingyong.lingyongtime='+''''+cxdate+'''');
sql.add('group by laobao.laobaono,laobao.laobaoname'); open;
end;
quickrep1.preview;
输出结果不对,如下
LAOBAONO,LINGYONGNUM
1 8
1 8
请问何故????
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货