DBGridEh列尾合计不能自动刷新的问题！

Question

将一个DBGridEh的一个Column的Footer的ValueType设为fvtSum，但是自动刷新合计值时总是不及时，比如，我输个数据，不换行时他不会自动累计，有时删掉一行数据，但是合计还是包括了这行的值，如何解决？

Answer 1

sumlist的active设为TRUE
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
DBGridEh1.Columns[0].Footer.ValueType := fvtStaticText;
DBGridEh1.Columns[0].Footer.Value := '合计：';
DBGridEh1.Columns[1].Footer.ValueType := fvtStaticText;
DBGridEh1.Columns[1].Footer.Value := '共'+inttostr(adoquery1.RecordCount)+' 条记录';
DBGridEh1.Columns[6].Footer.ValueType := fvtSum; //fvtSum
end;