关于用DBGridEh控件对某列求和-------------急急急

Question

怎样通过命令行格式对DBGridEh进行设置，完成对某行的求和最好能举例告知谢谢各位大虾！！！！

Answer 1

procedure TForm1.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;

Answer 2

对不起，发错了。没注意到你用的是DBGridEh，当我没说，:p

Answer 3

放一个DBSumList控件，设好DataSet，在它的SumCollection中输入要计算的字段名
procedure TForm1.Button1Click(Sender: TObject);
begin
  DBSumList1.RecalcAll;
  ShowMessage(FloatToStr(DBSumList1.SumCollection.Items[0].SumValue));
end;

Answer 4

我通过直接对DBGridEh的设置已经完成了对某列的合计，我就像请教怎么用命令完成对DBGridEh
的设置，以下是我写的一部分
    
  DBGridEh1.Columns[0].Footer.valuetype:=fvtStaticText;
  DBGridEh1.Columns[0].Footer.value:='合计';
  DBGridEh1.Columns[2].Footer.valuetype:=fvtsum;
   DBGridEh1.Columns[2].Footer.value:=????? 怎么写
                                         

Answer 5

DBGridEh1.Columns[0].Footer.valuetype:=fvtStaticText;
DBGridEh1.Columns[0].Footer.value:='合计';
DBGridEh1.Columns[2].Footer.ValueType := fvtSum;
DBGridEh1.SumList.Active := True;

Answer 6

find DBGridEh datasoure is Ttable;
DBtable add a Field

Answer 7

1.  dbgrideh的FooterRowCount改为1
2.  dbgrideh的SumList.Active设为True
3.  双击dbgrideh，在Column编辑器中加入需要统计得的字段
4.  选中相应列如：dbgrideh.columns[2],设其Footer.ValueType属性