求动态分组统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

谢谢大红袍老师！

运行通过了

代码运行通过了，但是不能统计小于1（含负数值）的数据

分组组距小于1就没有统计数据

分组组距Dim slen As Integer = Forms("窗口1").Controls("TextBox2").Text

还请老师再帮我看看

[此贴子已经被作者于2015/9/6 16:45:37编辑过]

Dim tbs() As String = { "表1", "表2"}
Dim cs1() As String = { "指标1", "指标2"}
Dim cs2() As String = { "指标A", "指标B", "指标C"}
Dim snum As Integer = Forms("窗口1").Controls("TextBox1").Text
Dim slen As Integer = Forms("窗口1").Controls("TextBox2").Text
Dim scount As Integer = Forms("窗口1").Controls("TextBox3").Text

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("-")
                If ary.length = 2 Then
                    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
                Else If ary.length = 3 Then
                    Dim c As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= " & -ary(1) & " and " & cs(j) & " < " & ary(2) & " and " & cs(j) & " is not null")
                    fdr(dc.name) = c / All *100
                Else If ary.length = 4 Then
                    Dim c As Double = Tables(tbs(i)).Compute("count(" & cs(j) & ")", cs(j) & " >= " & -ary(1) & " and " & cs(j) & " < " & -ary(3) & " and " & cs(j) & " is not null")
                    fdr(dc.name) = c / All *100
                End If
            End If
        Next

    Next

Next

MainTable = Tables("统计")

可以统计负数了，单还不能统计小数

给老师添麻烦了，再帮我修改一下

Dim tbs() As String = { "表1", "表2"}
Dim cs1() As String = { "指标1", "指标2"}
Dim cs2() As String = { "指标A", "指标B", "指标C"}
Dim snum As Double = Forms("窗口1").Controls("TextBox1").Text
Dim slen As Double = Forms("窗口1").Controls("TextBox2").Text
Dim scount As Double = Forms("窗口1").Controls("TextBox3").Text

Dim ls As new List(Of String())

ls.Add(cs1)

ls.add(cs2)

MainTable = Tables("统计")

问题解决了

谢谢大红袍老师！

主题：求动态分组统计