修复DBGrideh使用TMemTableEh在Footers求平均值为0的Bug

在一个项目中,使用DBGrideh,当使用自带的内存数据集时,对于Footers添加的求平均值,一直显示为0,其他汇总数据都是可以的,而切换使用TClientDataSet或者TADODataSet,所有汇总数据包括平均值都有值。

打开相关部分源码查看了下,发现DBGrideh自带的内存数据集关于汇总平均数这块,竟然没有处理……,什么情况?

原始相关函数:

procedure TCustomMemTableEh.GetAggregatedValuesForRange(FromBM, ToBM: TUniBookmarkEh;
  FieldName: String; var ResultArr: TAggrResultArr; AggrFuncs: TAggrFunctionsEh);
var
  FromRN, ToRN: Integer;
  i: Integer;
  v: Variant;
  VarTypeNum: Integer;
  FieldIndex: Integer;
begin
  ResultArr[agfSumEh] := Null;
  ResultArr[agfCountEh] := 0;
  ResultArr[agfAvg] := Null;
  ResultArr[agfMin] := Null;
  ResultArr[agfMax] := Null;
  if not Active then Exit;
  if FromBM <> NilBookmarkEh then
    if UniBookmarkValid(FromBM)
      then FromRN := UniBookmarkToRecNo(FromBM)
      else Exit
  else
    FromRN := 1;
  if ToBM <> NilBookmarkEh then
    if UniBookmarkValid(ToBM)
      then ToRN := UniBookmarkToRecNo(ToBM)
      else Exit
  else
    ToRN := RecordCount;

  if (FieldName = ‘‘) and (AggrFuncs = [agfCountEh]) then
  begin
    for i := FromRN-1 to ToRN-1 do
      ResultArr[agfCountEh] := ResultArr[agfCountEh] + 1;
    Exit;
  end;

  if FRecordsView.MemTableData.DataStruct.FindField(FieldName) = nil then
    Exit;
  VarTypeNum := FRecordsView.MemTableData.DataStruct.FieldByName(FieldName).GetVarDataType;
  FieldIndex := FRecordsView.MemTableData.DataStruct.FieldIndex(FieldName);
  for i := FromRN-1 to ToRN-1 do
  begin
    v := FRecordsView.RecordView[i].Rec.Value[FieldIndex, dvvValueEh];
    if not VarIsNullEh(v) then
    begin
      if (agfCountEh in AggrFuncs) or (agfAvg in AggrFuncs) then
        ResultArr[agfCountEh] := ResultArr[agfCountEh] + 1;            //当设置求平均值时,此处仅仅做了一次记数累计
      if (VarTypeNum in [varSmallint, varInteger, varSingle, varDouble, varCurrency,
{$IFDEF EH_LIB_6}
         varShortInt, varWord, varInt64, varLongWord,
{$ENDIF}
         varByte, varDate]) or (VarTypeNum = varFMTBcd) then
      begin
        if (agfSumEh in AggrFuncs) and (VarTypeNum <> varDate) then
          if VarIsNullEh(ResultArr[agfSumEh])
            then ResultArr[agfSumEh] := v
            else ResultArr[agfSumEh] := ResultArr[agfSumEh] + v;

        if agfMin in AggrFuncs then
            if VarIsNullEh(ResultArr[agfMin]) then
            ResultArr[agfMin] := v
          else if ResultArr[agfMin] > v then
            ResultArr[agfMin] := v;

        if agfMax in AggrFuncs then
          if VarIsNullEh(ResultArr[agfMax]) then
            ResultArr[agfMax] := v
          else if ResultArr[agfMax] < v then
            ResultArr[agfMax] := v;
      end
    end;
  end;

  if agfMax in AggrFuncs then                //求平均值,此处的触发条件竟然是 agfMax ....
    if not VarIsNullEh(ResultArr[agfSumEh]) then
      ResultArr[agfAvg] := ResultArr[agfSumEh] / ResultArr[agfCountEh];  //此处因为没有在agfAvg时对agfSumEh 求和汇总,该值应为0;
end;

修改方法:

1、打开MemTableEh.pas

2、找到GetAggregatedValuesForRange函数,修改成如下:

procedure TCustomMemTableEh.GetAggregatedValuesForRange(FromBM, ToBM: TUniBookmarkEh;
 FieldName: String; var ResultArr: TAggrResultArr; AggrFuncs: TAggrFunctionsEh);
var
 FromRN, ToRN: Integer;
 i: Integer;
 v: Variant;
 VarTypeNum: Integer;
 FieldIndex: Integer;
begin
 ResultArr[agfSumEh] := Null;
 ResultArr[agfCountEh] := 0;
 ResultArr[agfAvg] := Null;
 ResultArr[agfMin] := Null;
 ResultArr[agfMax] := Null;
 if not Active then Exit;
 if FromBM <> NilBookmarkEh then
  if UniBookmarkValid(FromBM)
   then FromRN := UniBookmarkToRecNo(FromBM)
   else Exit
 else
  FromRN := 1;
 if ToBM <> NilBookmarkEh then
  if UniBookmarkValid(ToBM)
   then ToRN := UniBookmarkToRecNo(ToBM)
   else Exit
 else
  ToRN := RecordCount;

 if (FieldName = ‘‘) and (AggrFuncs = [agfCountEh]) then
 begin
  for i := FromRN-1 to ToRN-1 do
   ResultArr[agfCountEh] := ResultArr[agfCountEh] + 1;
  Exit;
 end;

 if FRecordsView.MemTableData.DataStruct.FindField(FieldName) = nil then
  Exit;
 VarTypeNum := FRecordsView.MemTableData.DataStruct.FieldByName(FieldName).GetVarDataType;
 FieldIndex := FRecordsView.MemTableData.DataStruct.FieldIndex(FieldName);
 for i := FromRN-1 to ToRN-1 do
 begin
  v := FRecordsView.RecordView[i].Rec.Value[FieldIndex, dvvValueEh];
  if not VarIsNullEh(v) then
  begin
   if (agfCountEh in AggrFuncs) or (agfAvg in AggrFuncs) then
    ResultArr[agfCountEh] := ResultArr[agfCountEh] + 1;
   if (VarTypeNum in [varSmallint, varInteger, varSingle, varDouble, varCurrency,
{$IFDEF EH_LIB_6}
    varShortInt, varWord, varInt64, varLongWord,
{$ENDIF}
    varByte, varDate]) or (VarTypeNum = varFMTBcd) then
   begin
    if ((agfSumEh in AggrFuncs) or (agfAvg in AggrFuncs)) and (VarTypeNum <> varDate) then  //此处修改
     if VarIsNullEh(ResultArr[agfSumEh])
      then ResultArr[agfSumEh] := v
      else ResultArr[agfSumEh] := ResultArr[agfSumEh] + v;

    if agfMin in AggrFuncs then
        if VarIsNullEh(ResultArr[agfMin]) then
      ResultArr[agfMin] := v
     else if ResultArr[agfMin] > v then
      ResultArr[agfMin] := v;

    if agfMax in AggrFuncs then
     if VarIsNullEh(ResultArr[agfMax]) then
      ResultArr[agfMax] := v
     else if ResultArr[agfMax] < v then
      ResultArr[agfMax] := v;
   end
  end;
 end;

 if agfAvg in AggrFuncs then    //此处修改
  if not VarIsNullEh(ResultArr[agfSumEh]) then
   ResultArr[agfAvg] := ResultArr[agfSumEh] / ResultArr[agfCountEh];
end;
时间: 2024-11-08 23:49:07

修复DBGrideh使用TMemTableEh在Footers求平均值为0的Bug的相关文章

求平均值接口与实现该接口的类

求平均值接口与实现该接口的类,声明一个Average接口,其中约定求平均值的方法,声明多个类实现Average接口,分别给出求平均值的方法实现,例如,在第一组数值中,算法一 全部数值相加后求平均值,算法二,去掉一个最高分和一个最低分,再将总分求平均,算法三,求加权平均分的值. 1,在主函数中声明了三个类,第一个类实现全部算法相加后求平均值. 2,第二个类实现去掉一个最高分和一个最低分之后求平均值. 3.第三个类实现求加权平均分的值. 4,程序运行后产生的结果是32.75,9.25,6.75 5,

生成指定范围的一组随机数并求平均值

Math.random()是令系统随机选取大于等于 0.0 且小于 1.0 的伪随机 double 值,是Java语言常用代码. 随机数生成20~90之间的数值,并求平均数: public class Random01 { public static void main(String[] args) { int len = 5; int sum = 0; int[] arr = new int[len]; for (int i = 0; i < len; i++) { arr[i] = (int

1140: 零起点学算法47——求平均值

1140: 零起点学算法47--求平均值 Time Limit: 1 Sec  Memory Limit: 64 MB   64bit IO Format: %lldSubmitted: 1408  Accepted: 873[Submit][Status][Web Board] Description 输入一些整数,求平均值 Input 多组测试数据 首先输入1个整数n表示测试组数 然后每行首先输入1个整数m,再输入m个整数 Output 对于每组测试数据输出1行,内容为m个整数的平均值,保留

1054. 求平均值 (20)-PAT乙级真题

今天刚刚到学校,2017年学习正式开始了,今天看到了浙大的<数据结构>这学期又要开课了,决定一定要跟着学习一遍:在大学生mooc网上学习:http://www.icourse163.org/course/zju-93001#/info :然后就是跟着<算法之美>也要同步看完. 然后就在PAT上随便做一道题,这是第一次通过AC,发现了两个比较好的博客主页:http://www.liuchuo.net/  和  https://www.joyhwong.com/   都总结了刷题的过程

1054. 求平均值 (20)(转载)

1054. 求平均值 (20) 本题的基本要求非常简单:给定N个实数,计算它们的平均值.但复杂的是有些输入数据可能是非法的.一个"合法"的输入是[-1000,1000]区间内的实数,并且最多精确到小数点后2位.当你计算平均值的时候,不能把那些非法的数据算在内. 输入格式: 输入第一行给出正整数N(<=100).随后一行给出N个实数,数字间以一个空格分隔. 输出格式: 对每个非法输入,在一行中输出"ERROR: X is not a legal number",

偶数分割求平均值

////////////有一个长度为n(n<=100)的数列,该数列定义为//从2开始的递增有序偶数,现在要求你按照顺序每m个//数求出一个平均值,如果最后不足m个,//则以实际数量求平均值.编程输出该平均值序列. #include<stdio.h> int a[101]; void main() { int n,m; int i,sum; for(i=1;i<=100;i++) a[i]=2*i; while(scanf("%d%d",&n,&

C语言之基本算法08—去掉最高分去掉最低分求平均值

// /* ================================================================== 题目:选拔赛中通常用这样的办法求选手分数,去掉一个最高分,去掉一个 最低分,求平均成绩!请编程实现这个计算方法. ================================================================== */ #include<stdio.h> main() { float a[10],max,min,su

1114: 零起点学算法21——求平均值

1114: 零起点学算法21--求平均值 Time Limit: 1 Sec  Memory Limit: 64 MB   64bit IO Format: %lldSubmitted: 4420  Accepted: 1634[Submit][Status][Web Board] Description 输入3个浮点数,求出平均值,保留3位小数 Input 输入3个浮点数数(多组数据) Output 输出平均值,保留3位小数(每组数据一行) Sample Input 2 3 4 Sample

PAT-乙级-1054. 求平均值 (20)

1054. 求平均值 (20) 时间限制 400 ms 内存限制 65536 kB 代码长度限制 8000 B 判题程序 Standard 作者 CHEN, Yue 本题的基本要求非常简单:给定N个实数,计算它们的平均值.但复杂的是有些输入数据可能是非法的.一个“合法”的输入是[-1000,1000]区间内的实数,并且最多精确到小数点后2位.当你计算平均值的时候,不能把那些非法的数据算在内. 输入格式: 输入第一行给出正整数N(<=100).随后一行给出N个正整数,数字间以一个空格分隔. 输出格