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

以文本方式查看主题

-  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=53772)

--  作者：yyzlxc
--  发布时间：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

--  作者：yyzlxc
--  发布时间：2014/7/15 10:45:00
--
谢谢甜老师的指教，问题解决。