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

Dim Cs() As String = {1,2,3,4,5,6}

Dim t As Table = Tables("统计表1")
Dim len As Integer = 1
For i As Integer = 0 To cs.length - 1
    If i+len >= t.Cols.count Then
        t.DataTable.DataCols.Add("动态_" & cs(i), Gettype(Double), "",cs(i))
    Else
        If t.Cols(i+len).Caption <> cs(i) Then
            t.DataTable.DataCols.Add("动态_" & cs(i), Gettype(Double), "",cs(i))
            t.cols("动态_" & cs(i)).move(i+len)
        End If
    End If
Next

Dim g As New CrossTableBuilder("统计表1", DataTables("明细表2"))
g.HGroups.AddDef("客户")
g.VGroups.AddDef("区间")
g.Totals.AddDef("余额", "余额")
g.HorizontalTotal = True
g.HorizontalProportion = True

g.Build()
MainTable = Tables("统计表1")
Dim Cs() As String = {1,2,3,4,5,6}

开启占比后，新的问题，汗

比较啰嗦：

Dim g As New CrossTableBuilder("统计表1", DataTables("明细表2"))

g.HGroups.AddDef("客户")

g.VGroups.AddDef("区间")

g.Totals.AddDef("余额", "余额")

g.HorizontalTotal = True

g.HorizontalProportion = True

g.Build()

MainTable = Tables("统计表1")

Dim dt As DataTable = DataTables("统计表1")

Dim vals As List(Of String) = DataTables("明细表2").GetValues("区间","区间 Is Not Null")

Dim max As Integer = DataTables("明细表2").Compute("Max(区间)","区间 Is Not Null")

Dim Cols As New List(Of String)

For i As Integer = 1 To 6

Cols.Add(i)

'For i As Integer = 1 To max

'Cols.Add(i)

'Next

Dim lst As New List(Of String)

For Each s As String In Cols

If vals.Contains(s) = False Then

lst.Add(s)

End If

vals.Clear

With dt

For i As Integer = 0 To Cols.Count - 1

If .DataCols.Contains("余额_" & Cols(i)) = False Then

.DataCols.Add("余额_" & Cols(i),Gettype(Double))

For Each s As String In lst

If vals.Contains(s) = False Then

.DataCols("余额_" & Cols(i)).Caption = "余额_" & s

vals.Add(s)

Exit For

End If

End With

vals.Clear

For Each dc As DataCol In dt.DataCols

If dc.Caption.Contains("余额_") = False AndAlso dc.Name <> "客户" Then

dc.Caption = "余额_" & dc.Caption

End If

dt.BuildHeader()

For Each dc As DataCol In dt.DataCols

If dc.Caption.Contains("余额_") = False Then

If dc.Name <> "客户" Then

vals.Add(dc.Caption)

End If

Else

vals.Add(dc.Caption.Split("_")(1))

End If

vals.Sort

lst.Clear

For Each s As String In vals

For Each dc As DataCol In dt.DataCols

If dc.Caption.EndsWith(s) Then

lst.Add(dc.Name)

End If

Dim str As String

For Each s As String In lst

str + = s & "|100|"

str = "客户|100|" & str.TrimEnd("|")

Tables("统计表1").SetColVisibleWidth(str)

汗，你要灵活变通啊

g.Build()
MainTable = Tables("统计表1")
Dim Cs() As String = {1,2,3,4,5,6}

Dim t As Table = Tables("统计表1")
Dim len As Integer = 1
Dim n As Integer = 2
For i As Integer = 0 To cs.length - 1
Dim idx As Integer = i*n+len
    If idx >= t.Cols.count Then
        t.DataTable.DataCols.Add("动态_" & cs(i), Gettype(Double), "",cs(i))
        t.DataTable.DataCols.Add("动态_份额_" & cs(i), Gettype(Double), "",cs(i) & "份额")
    Else
        If t.Cols(idx).Caption <> cs(i) Then
            t.DataTable.DataCols.Add("动态_份额_" & cs(i), Gettype(Double), "",cs(i) & "份额")
            t.cols("动态_份额_" & cs(i)).move(idx)
            t.DataTable.DataCols.Add("动态_" & cs(i), Gettype(Double), "",cs(i))
            t.cols("动态_" & cs(i)).move(idx)
        End If
    End If
Next

主题：[求助]交叉统计问题