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

我的表使用动态加载。第一次加载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
    '表滚动条默认最左边---

For i As Integer = 0 To Tables("SItemInfo").rows.count-1
    Tables("SItemInfo").Position = i
    Tables("SItemInfo").rows(i).checked = True
Next

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

 

加上systemready

 

systemready = False
For i As Integer = 0 To Tables("SItemInfo").rows.count-1
    Tables("SItemInfo").Position = i
    Tables("SItemInfo").rows(i).checked = True
Next
systemready = True

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

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

 

http://www.foxtable.com/webhelp/scr/2218.htm

 

 

把某个字段，升、降排序（排序两次），也可以绕过这个bug

 

mark

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