导出excel问题

Question

我用Query组件写了excel的第一行为自定义的行头，例如我有5个行头但数据库里有四条数据可以写到excel的前四行第五行则要用前四行中的3，4行进行加，减，乘，除来完成可否行得通谢谢各位举个例。

Answer 1

ExcelApp.Cells[5,3].Value := '= C3 + C4';

Answer 2

用cxGrid来做导出吧!再简单不过了!呵呵

Answer 3

在QUERY的查询里加UNION增加第五行就行啦,一次过导出

Answer 4

select a,b,c,d,((a*500)/(b+c+d))/10 as e from yourtable返回数据集就行啦,这最简单,然后再导出到EXCEL

Answer 5

试下:i : integer; //数据行ExcelApp.Cells[i,5].Value := '= ((A'+ IntToStr(i) + ' * 500)' +  '/(B' + IntToStr(i)  + 
  '+ C' + IntToStr(i) + ' + D' + IntToStr(i) + '))/10';

Answer 6

先支持上面，再支持下自己的； ExApp.cells[9+iLoop,6].value:='=SUM(G'+ inttostr(9+iLoop)+':H'+ inttostr(9+iLoop)+')';

Answer 7

谢谢各位了马上结贴啊   
顺便问一下  excel里0值前的￥号如何去掉啊用