去写 AfterCheckRow
Dim Sum As Double = 0For Each r As Row In Tables("订单").GetCheckedRows Sum + = r("体积") Forms("窗口1").Controls("体积").Text = SumNext
http://www.foxtable.com/help/topics/1640.htm
加好友 
发短信
Post By：2015/10/16 11:49:00 [显示全部帖子]
