1、在同一个表不要这样做。
2、做成主表、明细表的形式,然后合并或统计
循环每一行累加 http://www.foxtable.com/webhelp/scr/1776.htm
比如代码
dim sum as double = 0dim str as string = ""For Each r As Row In Tables("订单").GetCheckedRows sum = sum + r("金额") str = str & r("编号") & ","Next
msgbox(sum)msgbox(str.trim(","))