Question

delphi中如何让DBGRID中数据实现某两列的数据求和并相除？

Answer 1

在表或查询中增加一个计算字段，将计算结果作为一个字段来运用。

追问

具体代码怎么写啊？能写出来吗？谢谢！

追答

找了一个例子，可以参考一下：

1. 建立新的工程文件project1， 在form1上放置一个Table、一个Datasource和一个Dbgrid 控件，Datasource1的Datasource 属性为Table1,Dbgrid1的Datasource属性为Datasource1。Table1中所用的数据库表为order.db，将Table1的Active属性置为True。 下面是Table1的定义：

字段名 类型 说明字段含义
Productid +产品 编号
Quantity N 数量
Price $ 单价
　　2. 添加计算出的字段Cash。用鼠标右键单击Table1组件，在弹出菜单中选取FieldsEditor…项，进入字段编辑器；再用鼠标右键单击字段编辑器的字段显示区? 在弹出菜单中选取Add Fields…项，将Table1的所有字段都加入字段编辑器中；再次用鼠标右键单击字段编辑器的字段显示区域，在弹出菜单中选取New Field…项，进入新字段编辑器，设新字段的Name为Cash，Type为Currency，FieldType为Calculated，用鼠标单击OK命令按钮，即完成了添加计算出的字段Cash。
　　3 ．添加Table1的OnCalcFields事件。其代码为：
procedureTForm1.Table1CalcFields(DataSet: TDataSet);
var
quantity1:single;
price1:Currency;
begin
quantity1:=Table1.FieldByName(quantity).asfloat; //数量
price1:=Table1.FieldByName(price).asCurrency; //单价
Table1.FieldByName(cash).asCurrency:=quantity1*price1; //应付资金
end;
　　运行程序，你可以在表格的Quantity 和Price栏中任意修改数据并移动记录，Cash栏即刻显示出与 之相应的金额值。

追问

你好，能否让数量相加的结果乘以单价相加的结果 然后用edit1输出 代码怎么写啊？谢谢你的回答

追答

在程序的前面设置共用变量 nSum
在计算字段计算的时候累加 Inc(nSum, 需要累加的数)
最后显示：Edit1.Text := IntToStr(nSum);

追问

我编了个程序，结果总不正确，你能否看看是哪出错了？谢谢！
var
i,nsum,sum:integer;
begin
nsum:=0;
sum:=0;
for i:=0 to table1.RecordCount-1 do
begin
sum:=sum+table1.fieldbyname('price').AsInteger;
nsum:=nsum+table1.fieldbyname('quantity').AsInteger;
end;
Edit1.Text := IntToStr(nSum);
edit2.Text :=inttostr(sum);
edit3.Text :=inttostr(nsum*sum);

end;

追答

总金额应该是每个数量与价格的乘积之和。
total: Int64; // 总金额
...
total := 0;
...
total := total + sum * nsum;