必须循环每一行合计
Dim sum As Double = 0For Each r As Row In Tables("外宣信息记录").GetCheckedRows sum += r("金额")Next
加好友 
发短信
Post By：2015/9/7 10:17:00 [显示全部帖子]
