主题：早期版本的复选框问题

我要复选框的原因是想实现勾选部分记录后能做批量操作（审核、删除等）

因为系统自带的底部合计栏只能显示所有可见记录的合计值，

因此想知道勾选记录的合计值的话只能自己写代码，

我动态添加了一个“选”的布尔值的列，在datacolchanged事件写代码：

Dim tol As Double = 0
Select Case e.DataCol.name
    Case "选"
        If e.DataRow("选") = True Then
            tol+=e.DataRow("金额")
        End If
End Select
e.Form.Controls("合计金额").text=tol

这段代码，若是一行行的勾选，问题不大，但若用一楼的全选、反选，则会反复触发这个事件，就很慢。

这段代码能优化不，比如不让反复计算，等所有行都全选/反选结束后再计算合计值。

Position  + SystemReady=False 好用，

谢谢楼上2位。