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

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()

MainTable = Tables("统计")

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

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目14.table

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)

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("统计")

主题：求动态分组统计