主题：[求助]

经实际应用才理解老师“效率低”的含义，自己尝试将老师的语句克隆到表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

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