主题：数据查找

筛选后的结果放到哪里？

表A就2个列，不已经有数据了吗？如果是要从execl合并数据到表A，参考：http://www.foxtable.com/webhelp/topics/2334.htm

表A增加一个逻辑列，使用4楼的方法，使用find查询如果有，就勾选上

Dim Book As New XLS.Book("c:\test\123.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

For n As Integer = 1 To Sheet.Rows.Count -1
    Dim bh As String = sheet(n,0).Text
    Dim dr As DataRow = DataTables("表A").Find("身份证 = '" & bh & "'")
    If dr Isnot Nothing Then '如果不存在同编号的订单
        dr("逻辑列") = true
    End If
Next