主题：求助 汇总表

 上传具体例子。

 没看懂你什么意思，贴出你之前写的代码。

Dim tbs() As String = {"数据1", "数据2"}
Dim tbs_js() 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)

DataTables("汇总").DataRows.Clear
For i As Integer = 0 To tbs.Length - 1
    Dim cs As String() = ls(i)
    For j As Integer = 0 To cs.Length - 1
        Dim fdr = DataTables("汇总").AddNew
        fdr("指标项") = cs(j)
       
        Dim All As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")")
        Dim c0 As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= 0")
        Dim c100 As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= 100")
        Dim c1000 As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= 1000")
        fdr("大于0") = c0 / All
        fdr("大于100") = c100 / All
        fdr("大于1000") = c1000 / All

        Dim jsAll As Double = Tables(tbs_js(i)).Compute("count(" & cs(j) & ")")
        Dim jsc0 As Double = Tables(tbs_js(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= 0")
        Dim jsc100 As Double = Tables(tbs_js(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= 100")
        Dim jsc1000 As Double = Tables(tbs_js(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= 1000")

        fdr("净大于0") = c0 / all - jsc0 / all
        fdr("净大于100") = c100 / all - jsc100 / all
        fdr("净大于1000") = c1000 / all - jsc1000 / all
    Next
Next

5楼代码没有问题。

 参考

 

http://www.foxtable.com/help/topics/1275.htm

 

Dim fdr = DataTables("汇总").AddNew       

fdr("指标项") = cs(j)

fdr("条件") = Tables(tbs(i)).Cols(cs(j)).Caption