DbgridEh求和.docVIP

procedure DbgridEhMouseUpExtend(Sender: TObject); type TCalcFld= record fldId: Integer; fldCol: Integer;//第几列 fldName: string; fldTitle: string; end; TCalcFldList= array of TCalcFld; TCalcResult= record fldId: Integer; //对应CalcFld中的FldId fldSum: Extended; //合计 fldNum: integer; //计数 end; TCalcRstList= array of TCalcResult; var AGridEh: TDBGridEh; TopBookMark: TBookmark; BottomBookMark: TBookmark; CurbookMark: TBookmark; aBeforeScroll,aAfterScroll: TDataSetNotifyEvent; numCount: Integer; numSum: Extended; numAvg: Extended; i,j: Integer; strMsg: string; cLeft,cRight: Integer; CalcFldList: TCalcFldList; //统计列信息 CalcRstList: TCalcRstList; //统计数据信息 begin AGridEh:= TDBGridEh(Sender); if not AGridEh.DataSource.DataSet.Active then Exit; CurbookMark:= AGridEh.DataSource.DataSet.GetBookmark; aBeforeScroll:= AGridEh.DataSource.DataSet.BeforeScroll; aAfterScroll:= AGridEh.DataSource.DataSet.AfterScroll; AGridEh.DataSource.DataSet.DisableControls; try numSum:= 0; numCount:= 0; AGridEh.DataSource.DataSet.Bookmark:= AGridEh.Selection.Rect.TopRow; if AGridEh.Selection.Rows.Count0 then begin //行级选择 改用很耗时的算法 SetLength(CalcFldList,AGridEh.VisibleColCount); j:= 0; for i:= 0 to AGridEh.VisibleColCount-1 do begin if AGridEh.Fields[i].DataType in [ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD,ftLargeint] then begin CalcFldList[j].fldId:= j; CalcFldList[j].fldCol:= i; CalcFldList[j].fldName:= AGridEh.Fields[i].FieldName; CalcFldList[j].fldTitle:= AGridEh.Fields[i].Text; Inc(j); end; end; SetLength(CalcFldList,j); SetLength(CalcRstList,High(Calcfldlist)+1); for i:= 0 to High(CalcRstList) do begin CalcRstList[i].fldId:= i; CalcRstList[i].fldSum:= 0; CalcRstList[i].fldNum:= 0; end; AGridEh.Selection.Rows.DataSet.First; //AGridEh.Selection