Dim dtb As New DataTableBuilder("建安指标统计")
dtb.AddDef("楼号", Gettype(String), 16)
dtb.AddDef("建筑面积", Gettype(Double),"","建筑面积(平米)")
……
dtb.build
……
For Each dr1 As Row In Tables("建安指标统计").rows
……
Dim dr4 As Row=Tables("建安指标统计").addnew
dr4("楼号")=“合计”
For i As Integer=4 To Tables("建安指标统计").cols.count-1
'dr4(Tables("建安指标统计").cols(i).name)=Tables("建安指标统计").compute("sum(Tables("建安指标统计").cols(i).name)","楼号<>'合计'")----系统报错
messagebox.show(Tables("建安指标统计").compute("sum(土方及护坡_总价(元))","楼号<>'合计'")) ---返回结果为空，不能实现求和。
Next
……
[此贴子已经被作者于2018/3/17 6:20:33编辑过]
加好友 
发短信
Post By：2018/3/17 0:28:00 [只看该作者]
