主题：再求做表

Dim tbs() As String = {"数据1"}
Dim cs1() As String = {"指标1", "指标2", "指标3"}
Dim ls As new List(Of String())
ls.Add(cs1)

For i As Integer = 0 To tbs.Length - 1
    Dim cs As String() = ls(i)
    For Each r As Row In Tables(tbs(i)).rows
       
        For j As Integer = 0 To cs.Length - 1
            If r(cs(j)) = 0 Then
                Dim fdr As DataRow = DataTables("汇总").Find("指标项 = '" & cs(j) & "'")
               
                If fdr Is Nothing Then
                    fdr = DataTables("汇总").AddNew
                    fdr("指标项") = cs(j)
                End If
                For k As Integer = 0 To cs.Length - 1
                    If r(cs(k)) > 0 Then
                        fdr(cs(k)) += 1
                    End If
                Next
            End If
        Next
    Next
Next

看到底多慢，具体可以做例子发上来测试。

代码运行通过，谢谢大红袍老师！