一案例:点击按钮,生成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编辑过]