ADODataset的字段合计

Question

在窗体Form中用ADODataset绑定一个数据表，DBGrid显示数据，用Combobox的Onchange事件查询数据，我想用一个EDit的text显示查询后某个字段的合计值，就是EDit.text随Combobox的查询结果变化，怎样实现？

Answer 1

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  i:integer;
  temp:integer;
begin
  temp:=0;
  ADoDataSet1.Close;
  AdoDataSet1.CommandText:='select * from 表1 where 需要查询的列名='+quotedStr(ComboBox1.Text);
  ADoDataSet1.Open;
  For i:=0 to ADoDataSet1.RecordCount-1 do
  begin
    temp:=temp+ADoDataSet1['需要合计的列名'];
    ADoDataSet1.Next;
  end;
  Edit1.Text:=IntToStr(temp);
end;

Answer 2

谢谢，如果不用For循环有没有其他的方法，如果把ADODataset换成ADOquery用它的输出参数可以传出吗？

Answer 3

找到了方法，用DGgidEH控件，不过还是感谢jiangbcboil