问题出在哪？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 问题出在哪？

共有2065人关注过本帖树形打印复制链接主题：问题出在哪？

gudao123456

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00

问题出在哪？ 发帖心情

Post By：2018/1/17 22:26:00 [只看该作者]

比对表A中的记录是否在表B中，以下代码正确吗？问题在哪？

For Each dr As DataRow In DataTables("表A").DataRows

dr("姓名比对")=False

dr("身份证比对")=False

dr("比对结果")=""

For Each tr As DataRow In DataTables("表B").DataRows

If dr("考生姓名")=tr("姓名") And dr("身份证号")=tr("证件号码")

dr("姓名比对")=True

dr("身份证比对")=True

dr("比对结果")="建档户"

End If

比对的结果不正确，不知何因？请求帮助

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/1/17 23:03:00 [只看该作者]

For Each dr As DataRow In DataTables("表A").DataRows
    Dim fdr = DataTables("表B").find("姓名 = '" & dr("考生姓名") & "' and 证件号码 = '" & dr("身份证号") & "'")
    If fdr IsNot Nothing Then
        dr("姓名比对")=True
        dr("身份证比对")=True
        dr("比对结果")="建档户"
    Else
        dr("姓名比对")=False
        dr("身份证比对")=False
        dr("比对结果")=""
    End If
Next

gudao123456

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00

Post By：2018/2/1 0:54:00 [只看该作者]

谢谢！

下一主题 >> << 上一主题

主题：问题出在哪？