主题：这种查找代码怎么写

窗口中有表A和表B（2个表列名完全相同），在表A中编码列输入几个编码，点按钮，把表B中能查到的所有数据一行一行的都引用到表A，查不到的只保留编码，其他列为空即可。

此主题相关图片如下：123333.png

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

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

我写了段代码 但执行有问题，帮看看

Dim i As Integer = 0

For Each dr As DataRow In DataTables("表A").Select("编码 is not null and 编码 <> ''")

For Each dr1 As DataRow In DataTables("表b").Select("编码='" & dr("编码") & "'")
     Dim dr2  As  DataRow =  DataTables("表a").DataRows(i)
 i=i+1

Tables("表a").AddNew()
     For Each dc  As  DataCol  In  DataTables("表b").DataCols
         dr2(dc.Name) = dr1(dc.name)
     Next
 Next
Next