请教：怎么用Delphi 7 按年、月、日查询SQL Server 2005 数据库的表的其中几列，显示，并生成合计？

[mikyy]

请教：怎么用Delphi 7 按年、月、日查询SQL Server 2005 数据库的表的其中几列(D1和D2)，显示，并生成合计？

数据库表：
date D1 D11 D2 D21
2009/10/18 33 2 43 2
2009/10/18 43 2 54 2
2009/10/19 50 8 30 3.3
2009/10/19 49 3 34 2

输入查询条件2009/10/19,要求运行生成：

date D1 D11 D2 D21
2009/10/19 50 8 30 3.3
2009/10/19 49 3 34 2
合计 99 64

谢谢！

[yufu2000]

如果用Delphi建议这样，query组建，查询字符串select d1,d11,d2,d21 from table where date='2009/10/19',显示用EHLIB,自动合计

[afst37]

可以先查询出条件为2009/10/19的结果放入一个表中，然后用语句（哪个语句不记得了）算出有几个结果，再将表中的内容一个个相加就是。

[mikyy]

[Quote=引用 1 楼 yufu2000 的回复:]
如果用Delphi建议这样，query组建，查询字符串select d1,d11,d2,d21 from table where date='2009/10/19',显示用EHLIB,自动合计

[/Quote]
我要在rave报表中显示。

[mikyy]

谁能帮忙做做

[mikyy]

请高人帮说说吧，能帮做做就感谢，刚接触这个不懂。

[afst37]

[Quote=引用 2 楼 afst37 的回复:]
可以先查询出条件为2009/10/19的结果放入一个表中，然后用语句（哪个语句不记得了）算出有几个结果，再将表中的内容一个个相加就是。
[/Quote]
你将计算的结果页放回表中，这个表不就随便你用了

[sparklerl]

select date,d1,d11,d2,d21 from table where date='2009/10/19'
UNION all
select '合计',sum(d1),'',sum(d2),'',from table where date='2009/10/19' Group by date

其实date限定后 Group by 没用

[suuuu]

[code=Delphi(Pascal)]var
temp1,temp2:String;
begin
temp1:='2009-10-10';
temp2:='合计';
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select year,yljl01,yljl02,yljl03,yljl04');
adoquery1.sql.add('from tljl where year='+''''+temp1+''''+ 'UNION all');
adoquery1.sql.add(' select '+''''+temp2+''''+',sum(yljl01),'',sum(yljl03),''');
adoquery1.sql.add('from tljl where year='+''''+temp2+''''+' group by year');
adoquery1.open;
end;code]

[suuuu]

var 
temp1,temp2:String; 
begin 
  temp1:='2009-10-10'; 
  temp2:='合计'; 
  adoquery1.close; 
  adoquery1.sql.clear; 
  adoquery1.sql.add('select year,yljl01,yljl02,yljl03,yljl04'); 
  adoquery1.sql.add('from tljl where year='+''''+temp1+''''+ 'UNION all'); 
  adoquery1.sql.add(' select '+''''+temp2+''''+',sum(yljl01),'',sum(yljl03),'''); 
  adoquery1.sql.add('from tljl where year='+''''+temp2+''''+' group by year'); 
  adoquery1.open; 
end;

[mikyy]

如何把查询器的
select year,yljl01,yljl02,yljl03,yljl04 from tljl where year='2009'
UNION all
select '合计',sum(yljl01),'',sum(yljl03),''from tljl where year='2009' group by year
翻译成Delphi的代码啊？谢谢！

[mikyy]

[Quote=引用 10 楼 suuuu 的回复:]
Delphi(Pascal) codevar
temp1,temp2:String;begin
temp1:='2009-10-10';
temp2:='合计';
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select year,yljl01,yljl02,yljl03,yljl04');
¡­
[/Quote]
我换到列数不一样的报表后就出错了，是不是合计所有的列都要参加？少一列都不行？

[mikyy]

是不是这样合计所有的列都要参加？少一列都不行？
另外请教下：在rave报表中增加一个band1,添加calctext,但是运行时calctext下什么都没有，怎么回事？calctype选的是ctsum，请教！

[suuuu]

合计只能对能合计的条目进行合计，比如说整型、货币型等等