主题：用什么方法查询后台数据效率高？

Dim dr  As DataRow

For Each r As DataRow In DataTables("A表").DataRows

    dr=DataTables("B").sqlfind("[X]='" & r("Y") & "'")

    If dr Is Nothing

        r("是否已导入")=False

    End If

Next

测试了一下，A表有2.9w条记录，表B有2.9w条记录，查找的时间需要594.4秒，约10分钟，如果其中一个表又10W条记录，那耗时就更长了，不知有什么办法可以提高速度，谢谢！