- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问这个错误是什么情况？？【项目已经重新上传，窗口自动打开】 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31616)
-- 发布时间：2013/4/18 9:29:00
-- [求助]请问这个错误是什么情况？？【项目已经重新上传，窗口自动打开】
项目如下：
版主备注：您的文件涉及您的客户私密资料，不要轻易把客户资料泄密了。现在已经把您的文件给取消，下次可以做个例子上来即可。
错误如下：
此主题相关图片如下：错误1.png
不知道是什么情况！ 求助````````
是保存按钮里的代码~！
-- 发布时间：2013/4/18 9:32:00
--
什么时候点击报错啊.未见报错啊.
-- 发布时间：2013/4/18 9:34:00
--
没有报错哦
-- 发布时间：2013/4/18 9:42:00
--
直接把代码贴出来！
-- 发布时间：2013/4/18 13:27:00
--
有个窗口1 窗口1的保存按钮里有代码~~~~~~~~~~
-- 发布时间：2013/4/18 13:28:00
--
Dim dr As DataRow = DataTables("历史进店记录").Find("底盘号=\'" & Tables("售后客户档案").current("底盘号") & "\' and 里程=\'" & Tables("售后客户档案").current("里程") & "\' and 最后进店日期=\'" & Tables("售后客户档案").current("最后进店日期") & "\' and _Identify <> " & dr("_Identify"))
Dim dr2 As DataRow
If dr Is Nothing Then
dr2 = DataTables("历史进店记录").AddNew
dr2("底盘号") = Tables("售后客户档案").current("底盘号")
dr2("里程") = Tables("售后客户档案").current("里程")
dr2("最后进店日期") = Tables("售后客户档案").current("最后进店日期")
End If
-- 发布时间：2013/4/18 17:17:00
--
究竟是什么情况？
-- 发布时间：2013/4/18 17:26:00
--
你的项目文档下载下来后没有你这段代码，还有个，你这个好多信息透露了，虽然我也是扬州的。
-- 发布时间：2013/4/18 17:34:00
--
Dim dr As DataRow = DataTables("历史进店记录").Find("底盘号=\'" & Tables("售后客户档案").current("底盘号") & "\' and 里程=\'" & Tables("售后客户档案").current("里程") & "\' and 最后进店日期=\'" & Tables("售后客户档案").current("最后进店日期") & "\' and _Identify <> " & dr("_Identify"))
你这样当然会报错... 你都没考虑到.标注处空值的情况.当为空值的时候就会报错了.
-- 发布时间：2013/4/19 8:43:00
--
项目已经重新上传