在窗口中生成一交叉统计表，按钮代码：
Dim g As New SQLCrossTableBuilder("最高学历", "员工档案表")
g.C
g.HGroups.AddDef("部门体系")
g.HGroups.AddDef("工作部门")
g.HGroups.AddDef("办事处")
g.VGroups.AddDef("最高学历")
g.Totals.AddDef("员工编号", AggregateEnum.Count, "员工编号")
g.VerticalTotal= True '垂直汇总
g.HorizontalTotal = True '水平汇总
'g.Build()
g.Filter = "员工状态 in('试用','在职') "
Tables("员工统计_Table1").DataSource = g.BuildDataSource
For Each c As Col In Tables("员工统计_Table1").Cols
If (c.Name<>"部门体系" AndAlso c.Name<>"工作部门" AndAlso c.Name<>"办事处") AndAlso (c.IsNumeric OrElse c.IsString) Then
Tables("员工统计_Table1").DataTable.ReplaceFor(c.Name, 0, c.name & " is null")
End If
Next
MainTable = Tables("员工统计_Table1")
MainTable.Font = New Font("宋体",10,FontStyle.Regular)
Tables("员工统计_Table1").AutoSizeCols()
那么生成的最高学历的列（有很多，如本科，研究生等），现在需要获取这些列的列名（Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)
messagebox.show(c.Name)），c.Name依次等于员工编号_1,员工编号_2......
那么有没有办法让这些列的列名依次为本科，研究生......?
加好友 
发短信
Post By：2014/10/23 15:14:00 [只看该作者]
