主题：[求助]求助一个全选的问题

有可能是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