- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求助一个全选的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109031)
-- 发布时间：2017/11/2 22:44:00
-- [求助]求助一个全选的问题
编辑行全选的时候发现一个奇怪的现象，就是点击了全选复选框后，发现总有一个是选不上的，反选后再全选还是选不上，如果手工把这行选择后就能够正常的全选和反选了，请问是什么问题？如何解决？谢谢！
此主题相关图片如下：qq图片20171102223301.png
此主题相关图片如下：qq图片20171102223339.png
此主题相关图片如下：qq图片20171102223430.png
复选框的CheckedChanged代码如下
Dim qx As WinForm.CheckBox = e.Form.Controls("qx")
For Each r As Row In Tables("员工导入_员工列表").Rows
If qx.Checked=True Then
r.Checked =True
Else
r.Checked =False
End If
Next
-- 发布时间：2017/11/2 22:56:00
--
有可能是bug，试试这样
Dim qx As WinForm.CheckBox = e.Form.Controls("qx")
For i As Integer = 0 To Tables("员工导入_员工列表").Rows.count-1
Dim r = Tables("员工导入_员工列表").Rows(i)
r.Table.Position = i
If qx.Checked=True Then
r.Checked =True
Else
r.Checked =False
End If
Next