我在afterCheckRow加入Dim Sum As Double
For Each r As Row In Tables("配载订单").GetCheckedRows
Sum + = r("体积")
e.Form.Controls("体积").Text = Sum
Next
Dim Sum1 As Double
For Each r As Row In Tables("配载订单").GetCheckedRows
Sum1 + = r("重量")
e.Form.Controls("重量").Text = Sum1
Next
在窗口配置了复选框控件并在单击事件中写入:
For Each r As Row In Tables("配载订单").Rows
r.Checked = e.Sender.Checked
Next
应用窗口后 不点复选框控件全选 点表复选框可正常在文本框显示体积值与重量值 但点了复选框控件 全选会卡 是冲突了 还是要怎样优化 数据也不多 六百多行