主题：表第一次加载出来后，使用遍历全选，会有一行选不上，不知道为啥，很诡异

我的表使用动态加载。第一次加载SIteminfo这个表，然后我启动表的多选，然后全选，会有一行没有被选上，很奇怪。

 

启动表多选的代码：

Tables("SItemInfo").ShowCheckBox = e.Sender.Checked

 

全选代码：（我的按钮名称写“全选/反选”，但我没有添加反选代码）

For Each r As Row In Tables("SItemInfo").rows
        r.Checked =True
Next

 

全选按钮结果：

此主题相关图片如下：1.jpg

 

1如果我点击分类，加载其他的数据，再去全选又没有问题了。

2我还试过用倒序遍历全选，也一样会出现。

3出现这个情况后，我不重新加载数据，我点击第二行或者第四第五行，再全选，没用还是漏了。只有我点击了一下那个被漏选的行，然后点一下全选，它才会被选上！

4有时候，第一次加载这个表数据，数据有几十行的时候，还会出现第一行，第4或第5行左右（反正不知名的某一行），和最后一行，没有被选上的诡异情况。

 

我的表的Afterload里有段这样的代码，不知道是否有影响

 

    '表滚动条默认最左边---
    Dim gt As Table =   Tables(e.DataTable.Name)
    If gt.Rows.Count > 0 Then
        gt.Select(0,0)
    End If
    '表滚动条默认最左边---

这种全选方式，只能在CurrentChanged没有事件的表里使用。如果有事件，那会非常卡的，有更好的解决方法吗？

这个SystemReady是有什么作用的？好像百度也找不到，能大概说说吗？它可以停止狐表的表事件执行？

我发现用Position去选择行，它会一直往下滚动选中行，勾选行。如果行数少就没所谓，如果行多，就很麻烦了，一直这样切换下去，

好，确实绕开了bug，现在给出完整代码，方便其他网友

我发现这个代码，引发新的bug。我发现当所有行选上以后，再点击一次不会实现反选，以下红色的代码无效。但是如果去掉蓝色的代码，就没问题

用Position不行，看来只能使用SystemReady的方法去停止遍历了

在2019.1.4号之前的版本，都有这个问题。给出妥协的代码，此贴可以终结了。以后大家可以用这个代码就好了