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
看到底多慢,具体可以做例子发上来测试。