以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码出错原因迷雾  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29705)
--  作者：jxkqf
--  发布时间：2013/3/12 10:38:00
--  [求助]代码出错原因迷雾

For Each dr As DataRow In DataTables("cb201301").DataRows
    Dim dr1 As DataRow
    dr1= DataTables("cb201204").Find(" 身份证号 = " & dr("身份证号"))
    If dr1 IsNot Nothing Then
        If dr1("家庭月保障金额")<>dr("家庭月保障金额") Then
            dr("信用社")=dr("信用社") + "变动"
        End If
    End If
Next

 

此代码为何会出错？
--  作者：jxkqf
--  发布时间：2013/3/12 10:45:00
--  

谢谢。

 

For Each dr As DataRow In DataTables("cb201301").DataRows
    Dim dr1 As DataRow
    dr1= DataTables("cb201204").Find("身份证号 = \'"& dr("身份证号") &"\'")
    If dr1 IsNot Nothing Then
        If dr1("家庭月保障金额") <> dr("家庭月保障金额") Then
            dr("信用社") = dr("信用社") & "变动"
        End If
    End If
Next