- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]代码出错（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53772)
-- 发布时间：2014/7/15 10:31:00
-- [求助]代码出错（已解决）
一案例：点击按钮，生成ZFXX和XQBD表，然后在命令窗口执行以下代码，出现错误提示，应该如何修改，使以下代码的效果能够实现，请各位老师指教，谢谢。
For Each dr As DataRow In DataTables("ZFXX").DataRows
Dim pr As DataRow
If dr.IsNull("ZFID") Then
dr("XXQ_QR") = Nothing
dr("XXQ_ZR") = Nothing
Else
pr = DataTables("XQBD").Find("ZFID = \'" & dr("ZFID") & "\'" And "PCRQ Desc")
If pr IsNot Nothing Then
dr("XXQ_QR") = pr("XXQ_QR")
dr("XXQ_ZR") = pr("XXQ_ZR")
Else
dr("XXQ_ZR") = Nothing
dr("XXQ_ZR") = Nothing
End If
End If
Next
此主题相关图片如下：aa.png
[此贴子已经被作者于2014-7-15 10:45:09编辑过]
-- 发布时间：2014/7/15 10:34:00
--
For Each dr As DataRow In DataTables("ZFXX").DataRows
Dim pr As DataRow
If dr.IsNull("ZFID") Then
dr("XXQ_QR") = Nothing
dr("XXQ_ZR") = Nothing
Else
pr = DataTables("XQBD").Find("ZFID = \'" & dr("ZFID") & "\'", "PCRQ Desc")
If pr IsNot Nothing Then
dr("XXQ_QR") = pr("XXQ_QR")
dr("XXQ_ZR") = pr("XXQ_ZR")
Else
dr("XXQ_ZR") = Nothing
dr("XXQ_ZR") = Nothing
End If
End If
Next
-- 发布时间：2014/7/15 10:45:00
--
谢谢甜老师的指教，问题解决。