谢谢大家。简单问题？？

Question

var
v:variant;
sheet:variant;
i:integer;
begin
v:=createoleobject('Excel.Application');
v.visible:=true;
v.workbooks.add();
query1.First;
query2.First;
for i:=0 to query1.RecordCount-1 do
begin
v.workbooks[1].sheets[1].cells[i+2,1]:=query2.Fields[0].AsString;
v.workbooks[1].sheets[1].cells[i+2,2]:=query1.Fields[1].AsString;
query1.Next;
query2.Next;
end;
显示的数据为
1       2
1       2
1       2
1       2
1       2
我想在最后面求个总数就是这样：1       2
1       2
1       2
1       2
1       2
5       10

Answer 1

可以用SQL语句的sum函数求出和，然后如上面的操作就可以了

Answer 2

最后一个单元格设置公式为求和,也就是EXCEL支持的那种