主题：新手请帮帮忙，我看了find，但是不太会用

编码 姓名 150921010101001 李明 150921010101026 许金生 150921010101027 李风英 150921010101040 马文龙 150921010101041 陈迷牢 150921010101046 闫恩梅 150921010101060 王改荣 150921010101067 王巨用 150921010101083 孟润娥 150921010101091 李换才 150921010101095 王满红 150921010101098 侯金厚 150921010101100 白翠花 150921010101101 李志龙 编码 姓名 身份证 150921010101083 孟润娥 152624193511103928 150921010101091 李换才 152624196402283919 150921010101095 王满红 152624195512063912 150921010101098 侯金厚 152624195109163913 150921010101100 白翠花 152624194506183921 150921010101101 李志龙 152624830924397 150921010101105 白秀梅 152624197012023921 比如我想把第二个表里面符合的身份证调入第一个表中，我还是不会，请Bin再帮帮忙，非常感谢

查找多个身份证，就是如果第二个表中某行的编码和姓名与第一个表中某行的相同，就把第二个表中的身份证调入第一个表中对应姓名的后面。 

哦确实没显示文件代码，

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表1.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表2.xls

这次应该是上传成功了，显示代码了。非常感谢Bin

请问总共需要几段代码几种代码呢？我前几天才把狐表下载了，看了帮助，但是好多不明白的，包括怎么定义table之类的我也不会，我做的狐表只是会导入文件，其他都不会了。我也很想学，但是一下子感觉很难入门。现在工作又需要，只能先请版主帮忙了，我自己要好好研究学习，现在简直连菜鸟都不如

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("编码") OrElse dr.IsNull("姓名") Then
            dr("F3") = Nothing
        Else
            Dim filter As String
            filter = "编码 = '" & dr("编码") & "' And 姓名 = '" & dr("姓名") & "
            pr = DataTables("表2").Find(filter)
            If pr IsNot Nothing Then
                dr("F3") = pr("身份证")
            End If
        End If

非常感谢Bin和“有点甜”，谢谢两位版主的耐心解答和帮忙。我要好好研究，学习期间有不懂的还会来请教。谢谢你们开发这样的版面

请问“有点甜”发的附件打开后，好像没执行代码，表1中没显示身份证，是需要点击什么才能执行吗？我刚才学习了事件编程，明白e事件了，但是不知怎么让代码执行出来

哦明白了，Bin你真厉害，佩服佩服