无法直接写条件，必须循环每一行，进行合计
Dim sum As Double = 0For Each r As Row In Tables("订单").GetCheckedRows sum += r("数量")NextMessageBox.show(sum)
加好友 
发短信
Post By：2017/5/12 14:15:00 [显示全部帖子]
