来来来，大家注意了，DataTable分组求和的简单方式

'定义一个临时变量，用于判断某个分组是否已经求过和
dim temp=""
'求和的值
dim sumValue
'循环DataTable
for each dr in 网格部件1.DataTable.Rows
        '根据长度判当前这条数据所属的分组是否已经求过和(在分组名称前后加上“|”,是为了避免：“是”“不是”这样的分组,这养的分组不加符号就判断不到)
        if(Len(Replace(temp,"|"+dr["分组字段名"]+"|",""))=Len(temp))
                '求某一个分组的和，并复制给变量(在这里，你就可以把值设置到其他的某个地方了)
                sumValue=网格部件1.DataTable.Compute("sum(求和字段名)","地块号='"+dr["分组字段名"]+"')
                '临时变量存入分组名称,加上逗号只是更好的避免分组名称前后冗余的情况，如:|是||不是|，如果不在前后加一个字符加以区分，就盘不判断了
                temp=temp+"|"+dr["分组字段名"]+"|"
        end if
next

原文地址:http://bbs.delit.cn/thread-533-1-1.html

转载请注明出处:

撰写人:度量科技http://www.delit.cn