来来来,大家注意了,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
转载请注明出处:
撰写人:度量科技www.delit.cn
时间: 2024-11-25 06:30:54