如何把两个表比对的结果显示在对比表中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dt1 As DataTable = DataTables("孕检名单")
Dim dt2 As DataTable = DataTables("期末措施")
Dim dt3 As DataTable = DataTables("查询对比")
dt3.DataRows.Clear
For Each dr As DataRow In dt1.Select("")
    Dim filter As String = "单位名称 = '" & dr("单位名称") & "' and 组名称 = '" & dr("组名称") & "' and 女方姓名 = '" & dr("女方姓名") & "' and 男方姓名 = '" & dr("男方姓名") & "'"
    Dim fdr As DataRow = dt2.Find(filter)
    If fdr Is Nothing Then
        Dim ndr As DataRow = dt3.AddNew
        ndr("女方姓名") = dr("女方姓名")
        ndr("男方姓名") = dr("男方姓名")
    End If
Next

主题：如何把两个表比对的结果显示在对比表中？