主题：关于CheckList未将对象引用设置到对象实例

Dim checkList As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim dr As DataRow
dr = DataTables("员工信息表").Find(" [员工代号] = '"& _UserNo &"' ")
If dr IsNot Nothing Then
    For Index As Integer = 0 To checkList.Items.Count - 1
        checkList.SetItemChecked(Index, True)
    Next
End If

显示未将对象引用设置到对象实例怎么个情况

显示结果是 11 22 未将对象引用设置到对象实例  22 未将对象引用设置到对象实例  循环七次。

checkList.SetItemChecked(Index, True)有问题貌似，但是我又看出不问题来

这个代码不应该有错误提示，出现这个提示框之前，没有其他提示？

楼主自己也敷衍，既然调试，就应该告知别人： 显示了哪个Messgebox后出错。

如果没有显示messagebox，那么就应该将MessageBox的位置往前移动，直到能准确定位错误代码。

 测试了一下，这段代码本来就有问题，或造成死循环

For Index As Integer = 0 To checkList.Items.Count - 1
    checkList.SetItemChecked(Index, True)
Next

 再有，你肯定在其它事件还写了代码。