主题：[求助]

经实际应用才理解老师“效率低”的含义，自己尝试将老师的语句克隆到表B：

 

Select Case  e.DataCol.Name

    Case "检验项目"

        Dim nms As List(of String) = DataTables("表A").GetUniqueValues("","检验项目")

        Dim cnt As Integer

        For Each nm As String In nms

            Dim chk As DataRow           

            chk("检验项目") = nm

            chk("数量") = DataTables("表A").compute("Count([样品编号])","检验项目 = '" & nm & "'")

            Tables("表B").AddNew()           

        Next

End Select

但不知错在哪里？请老师指教！谢谢！

你这样的代码，即使正确，效率还是差，Foxtable提供了很多高效率的统计工具，建议你先看看开发指南中Foxtable编程的《统计与查询》这一章，再多的数据，也可以瞬间出结果的。