主题：求动态分组统计

已有统计汇总：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态分组统计_201509011009.zip

1，在"分组统计"表汇总统计"表1“，"表2"各指标列数据分布

2，在"分组统计"表建工作窗口输入：分组起始值，分组宽度，分组组数

3，"分组统计"表第一例"列名"汇总"表1“，"表2"各列列名，第二例"标题"汇总"表1“，"表2"各列标题

4，"分组统计"表第三例到N列为分组组数列，汇总统计"表1“，"表2"指标列各分组段数据所占比重

例如：在"分组统计"表窗口输入：分组起始值0，分组宽度100，分组组数10，"分组统计"表第三例生成列名为"0-100",统计大于0小于100区间数据所占比重，最后一列列名为"900-1000"，统计大于,900小于1000区间数据所占比重，

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

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

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

Dim snum As Integer = 0
Dim slen As Integer = 100
Dim scount As Integer = 10

Dim ls As new List(Of String())

ls.Add(cs1)

ls.add(cs2)

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("列名", Gettype(String), 32)
dtb.AddDef("标题", Gettype(String), 32)
For i As Integer = 1 To scount
    dtb.AddDef("临时列" & i, Gettype(Double), "", snum+slen*(i-1) & "-" & snum+slen*i)
Next
dtb.Build()

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) & ")", cs(j) & " is not null")
        For Each dc As DataCol In DataTables("统计").datacols
            If dc.Name Like "临时列*" Then
                Dim ary() As String = dc.Caption.Split("-")
                Dim c As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= " & ary(0) & " and " & cs(j) & " < " & ary(1) & " and " & cs(j) & " is not null")
                fdr(dc.name) = c / All *100
            End If
           
        Next
       
    Next
   
Next

MainTable = Tables("统计")

Dim snum As Integer = 0
Dim slen As Integer = 100
Dim scount As Integer = 10

这三个数值不是固定的需要从窗口动态输入

呃，要学会变通。直接赋值

Dim snum As Integer = Forms("窗口1").Controls("TexBox1").Text
Dim slen As Integer = 100
Dim scount As Integer = 10

请参考4楼代码，只要赋值成功，就没问题

Dim snum As Integer = Forms("窗口1").Controls("TexBox1").Text
Dim slen As Integer = Forms("窗口1").Controls("TexBox2").Text
Dim scount As Integer = Forms("窗口1").Controls("TexBox3").Text