dbgrideh合计

Question

怎么都没有人啊，有做过的分享一下经验啊

Answer 1

给你一段自动判断是数值型的就自动加上合计栏代码：
自己加上变量i的定义。  if self.ADOQuery1.Active then begin
    Self.DBGridEh1.Columns[0].Footers.Add;
    self.DBGridEh1.Columns[0].Footers[0].ValueType := fvtStaticText;
    self.DBGridEh1.Columns[0].Footers[0].Value := '合计';    for i := 0 to self.DBGridEh1.Columns.Count - 1 do begin
      self.DBGridEh1.Columns[i].MinWidth := 40;
      self.DBGridEh1.Columns[i].Title.Alignment := taCenter;
      if Self.DBGridEh1.Columns[i].Field.DataType in [ftFloat, ftCurrency, ftFloat, ftBCD] then begin
        Self.DBGridEh1.Columns[i].Footers.Add;
        self.DBGridEh1.Columns[i].Footers[0].FieldName := Self.DBGridEh1.Columns[i].FieldName;
        self.DBGridEh1.Columns[i].Footers[0].ValueType := fvtSum;
      end;
    end;
    Self.DBGridEh1.SumList.Active := true;
  end;