DataTable分组求和【UP,UP,UP】

刘亚东

来来来，大家注意了，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

刘亚东

自己必须UP一下

王爱东

这个东西好用，datatable灵活的使用不错哈。

刘亚东

王爱东 发表于 2015-12-28 16:15
这个东西好用，datatable灵活的使用不错哈。

肯定的撒

张兴康

这个真心不错，值得收藏

万望

不错，解决了我的问题

万望

关于楼主的这个if 判断我还是想了一整子才明白了，脑子慢半拍老了

张军勇

无图无真相，差评。