Dim Sum As Double
Dim Sum1 As Double
For Each r As Row In Tables("配载订单").GetCheckedRows
Sum + = r("体积")
Sum1 + = r("重量")
Next
e.Form.Controls("体积").Text = Sum
e.Form.Controls("重量").Text = Sum1
----------------------------------------------------
在窗口配置了复选框控件并在单击事件中写入:
SystemReady = False
For Each r As Row In Tables("配载订单").Rows
r.Checked = e.Sender.Checked
Next
SystemReady = true
Dim Sum As Double
Dim Sum1 As Double
For Each r As Row In Tables("配载订单").GetCheckedRows
Sum + = r("体积")
Sum1 + = r("重量")
Next
e.Form.Controls("体积").Text = Sum
e.Form.Controls("重量").Text = Sum1
加好友 
发短信
Post By：2015/10/20 17:14:00 [显示全部帖子]
