- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码出现错误，引用对象没实例，怎么回事，请专家帮我看看代码，谢谢 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116027)
-- 发布时间：2018/3/19 8:28:00
-- [求助]代码出现错误，引用对象没实例，怎么回事，请专家帮我看看代码，谢谢
当输入年度时，后面输入身份证时，错误对话框：
此主题相关图片如下：截图00.jpg
软件：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:信阳市人社局工资管理系统(1) .foxdb |
-- 发布时间：2018/3/19 8:38:00
--
Select Case e.DataCol.Name
Case "年度", "个人状态","身份证号","本年度健康休养费"
If e.DataRow("个人状态") = "现职" Then
e.DataRow("上年度健康休养费") = Nothing
Else
Dim fdr8 As DataRow = e.DataTable.find("身份证号 = \'" & e.DataRow("身份证号") & "\'", "年度 DESC",1)
Dim prp As DataRow = DataTables("原休养费").Find("身份证号 = \'" & e.DataRow("身份证号") & "\'")
If fdr8 Is Nothing AndAlso prp IsNot Nothing Then
e.DataRow("上年度健康休养费") = prp("年健康休养费")
ElseIf fdr8 IsNot Nothing Then
e.DataRow("上年度健康休养费") = fdr8("本年度健康休养费")
End If
End If
End Select
-- 发布时间：2018/3/19 8:44:00
--
天呐，你是怎么一下子就找出来，佩服，我弄了半天，找不到，谢谢
-- 发布时间：2018/3/19 9:11:00
--
以下是引用hrw68529在2018/3/19 8:44:00的发言：
天呐，你是怎么一下子就找出来，佩服，我弄了半天，找不到，谢谢
天呐，你是怎么一下子就找出来，佩服，我弄了半天，找不到，谢谢
哪一列输入后报错，那就找哪一列的代码；
找到后，根据错误提示【未将对象....】一般都是find之后不判断是否为空的错误。你要积累这些调试经验。