'定义一个临时变量，用于判断某个分组是否已经求过和
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
