主题：请教实现方案

 回复32楼，简单做法，你循环所有的行，按条件统计一下合格数量就行。

 回复35楼，1.5秒就不错了，将就用吧。

 如果要优化，请上传具体例子说明。

 做不到，需要加判断

Dim dta As DataTable = DataTables("试验结果")
For Each dr As DataRow In DataTables("试验临时数据").Select("")
    If dr("数据序") Mod 3 = 0 Then
        If dta.Find("编号= '" & dr("编号") & "' and 来源='" & dr("来源") & "' and 数据序=" & dr("数据序")) Is Nothing Then
            dr("存在2")=1
        End If
    End If
Next

 方法一：

先把DataTables("试验数据")的数据全部加载，这样find起来比较快。

方法二：

用sqlfind 替换 find

 回复42楼，SqlFind尽量少用，如果是进行大数据多次查找的话，每执行一次SqlFind，都是需要连接数据库开销的。

 所以，尽量是先把所有的值查出来，然后再find。不同的时候用不同的语法。

 当然，狐表在语法优化这方面也是有很大的进步空间的。