我一直用的2018版，有个bug开启table的复选后，全选、反选不能精确的选择全部或者反选，
我写的全选代码如下，偶尔会有记录漏选的情况：
Dim t As Table = Tables(e.Form.name & "_明细表")
For i As Integer = t.Rows.Count -1 To 0 Step -1
t.Rows(i).Checked = True
Next
反选：
Dim t As Table = Tables(e.Form.name & "_明细表")
For i As Integer = t.Rows.Count -1 To 0 Step -1
t.rows(i).Checked = not t.rows(i).Checked
Next
t.Current.Checked = not t.Current.Checked '因为发现反选时，焦点所在行不能反选，就加了这句
2022版已经没这个问题了，但不想升级，用不惯代码编辑器；
动态添加一个复选框的做法我会，但在实现勾选后自动计算勾选记录的金额合计值会很慢，
因为datacolchanged事件里写了计算勾选记录合计金额的代码，全选或反选后，会反复触发这个事件，很慢。
想问问，有没有其他代码可以完整的实现复选框的全选、反选功能？
加好友 
发短信
Post By：2023/5/30 14:47:00 [只看该作者]
