Dim b As New CrossTableBuilder("统计表",DataTables("表A"))
Dim dt As fxDataSource
b.HGroups.AddDef("工厂")
b.VGroups.AddDef("序号")
b.totals.AddDef("总数量")
dt = b.BuildDataSource()
Dim b1 As New GroupTableBuilder("统计表1",DataTables("表B"))
Dim dt1 As fxDataSource
b1.Groups.AddDef("工厂")
b1.Groups.AddDef("姓名")
dt1 = b1.BuildDataSource()
Dim nms As String() = {"工厂"}
dt1.Combine(nms,dt,nms)
'dt1.Show("统计表1")
Tables("窗口1_Table1").DataSource = dt1
Dim dic As new Dictionary(of String, String)
Dim Lst As New List(Of Integer)
For Each dc As Col In Tables("窗口1_Table1").cols
If dc.name<>"工厂" And dc.name<>"姓名" Then
dic.add(dc.Caption, dc.name)
Lst.Add(dc.Caption)
End If
Next
Lst.Sort
For i As Integer = Lst.count-1 To 0 Step -1
Tables("窗口1_Table1").Cols(dic(Lst(i))).Move(2)
Next
加好友 
发短信
Post By：2021/9/10 15:37:00 [显示全部帖子]
