[求助]代码出错（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

一案例：点击按钮，生成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

End If

此主题相关图片如下：aa.png

[此贴子已经被作者于2014-7-15 10:45:09编辑过]

主题：[求助]代码出错（已解决）