主题：如何实现表表比对输出不同到临时表？

“订单表”的项目编号字段与“项目表”的编号字段做对比（即订单表项目编号字段去项目表编号字段去搜索）如果在项目表中找不到则把找不到的记录信息列到“对比表”中相应字段。如何实现请老师帮忙，见例子。

 

 

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

点击浏览该文件:管理项目15.foxdb

 

此主题相关图片如下：对比.jpg

注：在对比前项目编号字段多了两个前辍（XM)，如何去掉前缀后再对比？

Find的时候.SUbstring(2,str.lenght-2) 去掉前缀就好了

去掉前缀有点思路，但对比功能没做过麻烦老师帮忙改一下例子我学习一下。

是要互相找呢,还是项目表找订单表没有的

订单表找项目表

但是你项目表的数据比订单表多啊.说反了吧?

订单表去项目表中搜索，没有的列到窗口的虚拟表中

Dim dt2 As DataTable = DataTables("项目表")
Dim dt1 As DataTable = DataTables("订单表")
Dim dt3 As DataTable = DataTables("对比表")

For Each dr As DataRow In dt2.Select("", "编号")
    Dim filter As String = "项目编号 like '%" & dr("编号") & "'"
    Dim fdr As DataRow = dt1.Find(filter)
    If fdr Is Nothing Then
        Dim ndr As DataRow = dt3.AddNew
        ndr("pnumber") = dr("编号")     
       
    End If
Next