主题：再求做表

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

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
        Dim fdr As DataRow = DataTables("汇总").Find("指标项 = '" & r("名称") & "'")
        If fdr Is Nothing Then
            fdr = DataTables("汇总").AddNew
            fdr("指标项") = r("名称")
        End If
        For j As Integer = 0 To cs.Length - 1
            fdr(Tables("汇总").Cols(j+1).Name) += iif(r(cs(j))>0, 1, 0)
        Next
    Next
Next

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

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(Tables("汇总").Cols(k+1).Name) += 1
                    End If
                Next
            End If
        Next
    Next
Next

 那你就加入对应的列啊

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

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