以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  身份证号比较  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126537)

--  作者：雨中的泪 --  发布时间：2018/10/23 20:12:00 --  身份证号比较   [此贴子已经被作者于2018/10/23 21:15:41编辑过]

--  作者：雨中的泪 --  发布时间：2018/10/23 20:28:00 --   老大，基本忘记了，帮一下忙，谢谢

--  作者：雨中的泪 --  发布时间：2018/10/23 20:39:00 --   老大，基本忘记了，帮一下忙，谢谢

--  作者：有点蓝 --  发布时间：2018/10/23 20:50:00 --   For Each As Row In Tables("表A").rows     If r("身份证号") = r("身份证号1") Then         Dim nr As Row = Tables("表B").AddNew         nr("身份证号") = r("身份证号")     End If Next

--  作者：雨中的泪 --  发布时间：2018/10/23 20:58:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.rar [此贴子已经被作者于2018/10/23 21:20:01编辑过]

--  作者：有点蓝 --  发布时间：2018/10/23 21:41:00 --   For Each r As Row In Tables("表1").Rows     Dim dr As DataRow = DataTables("表2").Find("身份证号1=\'" & r("身份证号") & "\'")     If dr IsNot Nothing Then         Dim nr As DataRow = DataTables("比较结果").AddNew         nr("身份证号") = r("身份证号")     End If Next

--  作者：雨中的泪 --  发布时间：2018/10/23 21:54:00 --   老大，谢谢，万分感谢，好久没用了，要慢慢看代码，谢谢

--  作者：雨中的泪 --  发布时间：2018/10/23 21:55:00 --   再一次，感谢，谢谢

--  作者：雨中的泪 --  发布时间：2018/10/23 22:06:00 --   老大，你给的代码搞定了，谢谢您