表第一次加载出来后，使用遍历全选，会有一行选不上，不知道为啥，很诡异 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Dim t As Table = Tables("LoanInfo")

'当前版本直接遍历全选,会有部分行失败,由排序的BUG引发,所以触发一次排序,绕开BUG---

Dim s As String = t.Sort

t.Sort ="_identify desc"

t.Sort =s

'当前版本直接遍历全选,会有部分行失败,由排序的BUG引发,所以触发一次排序,绕开BUG---

For Each r As Row In t.rows

If r.Checked =True Then

r.Checked =False

MessageBox.show(1)

Else

r.Checked =True

End If

1、用 for i as integer = 0 to t.rows.count 的方式引用行，设置，是否可以？

2、如果不行，那就没办法了，必须设置position来计算index。

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

杰哥NB,这个也试出来了

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

-----------------------------------------------

'需求:点击按钮,可以反选所有的行

'思路:

'1用ForEach遍历行去改Check状态,有bug,要使用这种切换Postion的方法改Check状态

'2但是切换Position,会触发CurrentChanged事件,造成性能影响,所以用SystemReady中止事件执行

Dim t As Table = Tables("WHourInfo") '改成你的表名即可

t.StopRedraw '停止表绘制,因为行多会闪烁

SystemReady = False '停止系统事件,这是狐表特有的函数,可以停止系统所有事件的运行

Try

For i As Integer = 0 To t.Rows.count-1

t.Position = i

If t.Rows(i).Checked Then

t.Rows(i).Checked = False

Else

t.Rows(i).Checked = True

End If

Catch ex As Exception

MessageBox.show("程序发生错误,请联系技术员")

End Try

SystemReady = True '启动系统事件

t.ResumeRedraw '启动表绘制

[此贴子已经被作者于2019/1/14 9:50:50编辑过]

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