Ehlib页脚设置

with   DBGrid   do
    begin
        FooterRowCount   :=   0;
        Columns[0].Footer.ValueType   :=   fvtStaticText;
        Columns[0].Footer.Value   :=   '合计: ';
        Columns[0].Footer.Alignment   :=   taCenter;
        Columns[0].Title.Alignment   :=   taCenter;
    end;

    当然，DBGrid的属性SumList.Active=True

设置每列的脚注

            myGrid.SumList.Active:=true;
            myGrid.FooterRowCount:=1;
            myGrid.FooterColor:=clAqua;

            for   i:=0   to   myGrid.Columns.Count-1   do
            begin
                myGrid.Columns[i].Footers.Add;
                if   i=0   then
                begin
                    myGrid.Columns[i].Footers[0].Value:= '合     计 ';
                    myGrid.Columns[i].Footers[0].ValueType:=fvtStaticText;
                end   else
                if   (myGrid.Columns[i].Field.DataType=ftFloat)
                    or   (myGrid.Columns[i].Field.DataType=ftInteger)   then
                begin
                    myGrid.Columns[i].Footers[0].FieldName:=myGrid.Columns[i].FieldName;
                    myGrid.Columns[i].Footers[0].ValueType:=fvtSum;
                end;
            end;