主题：求动态分组统计

固定3个分组统计：大于0占比，大于100占比，大于1000占比

Dim tbs() As String = { "表1", "表2"}

Dim cs1() As String = { "指标1", "指标2", "指标3"}

Dim cs2() As String = { "指标A", "指标B", "指标C","指标D" }

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)

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

        Dim All As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")")

        Dim c0 As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= 1")

        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 *100

        fdr("大于100占比") = c100 / All *100

        fdr("大于1000占比") = c1000 / All *100

    Next

  Next

想改成动态分组统计：

1，由窗口收入动态分组数N

2，判断个统计列最高值，最低值，并平均分成N组

3，生成动态列名"1","2","3"------"N",计算各列数据（各统计指标数据在各数据段所占比例）