Dim txt As String = e.sender.Text
txt = "'%" & txt & "%'"
Dim dr As DataRow
Dim po As Integer
dr = DataTables("成绩").Find("[考号] Like" & txt)
po = Tables("上分_table1").FindRow(dr)
If po >= 0 Then '如果找到
Tables("上分_table1").Position = po '选定
Else
Tables("上分_table1").Position = 0
MessageBox.show("该考号在所选学生范围内不存在")
e.sender.text = Nothing
End If
上面代码是在text框中找加载到表中的考号，当输入考号找不到时，然后用鼠标点表中任何地方就出现：
应用程序中发生了无法处理的异常。如果单击“继续”，应用程序将忽略此错误并尝试继续。如果单击“退出”，应用程序将立即关闭。
未将对象引用设置到对象的实例。
详细信息
有关调用实时(JIT)调试而不是此对话框的详细信息，
请参见此消息的结尾。
************** 异常文本 **************
System.NullReferenceException: 未将对象引用设置到对象的实例。
加好友 
发短信
Post By：2016/11/14 14:40:00 [只看该作者]
