在kqmx表中有列“备注”的字符列，要求加入到水平方向的分组中，有什么办法可以实现，请各位老师指教，谢谢！！

\'根据kqmx表生成交叉汇总表
Dim f As New CrossTableBuilder("当月个人考勤汇总", DataTables("kqmx"))
f.HGroups.AddDef("编号")
f.HGroups.AddDef("姓名")
f.VGroups.AddDef("日期",DateGroupEnum.None)
f.Totals.AddDef("在册","天数")
f.Totals.AddDef("出勤")
f.Totals.AddDef("公出")
f.Totals.AddDef("公休")
f.Totals.AddDef("事假")
f.Totals.AddDef("病假")
f.Totals.AddDef("其他")
f.HorizontalTotal = True \'水平汇总
f.Build()
MainTable = Tables("当月个人考勤汇总")
Dim t As Table = Tables("当月个人考勤汇总")
Dim a As Integer = Tables("当月个人考勤汇总").Cols.Count
MessageBox.Show(a)

Dim i As Integer = (Tables("当月个人考勤汇总").Cols.Count - 9)/7
For j As Byte = 1 To i
    Tables("当月个人考勤汇总").Cols("在册_" & j).Visible = False
Next
For Each c As Col In t.Cols
    If c.DataCol.IsNumeric Then
        c.TextAlign = TextAlignEnum.Center
    End  If
Next
For Each dc As DataCol In t.DataTable.DataCols
    If dc.IsNumeric Then
        For Each dr As DataRow In t.DataTable.DataRows
            If dr(dc.name) = 0
                dr(dc.name) = Nothing
            End  If
        Next
    End  If
Next
t.DataTable.DataCols.Add("合计_出勤率", Gettype(Double))
For Each dr As DataRow In DataTables("当月个人考勤汇总").DataRows
    dr("合计_出勤率") = (dr("合计_出勤") + dr("合计_公出")) / dr("合计_天数") * 100
Next
DataTables("当月个人考勤汇总").DataCols("合计_出勤率").SetFormat("0.00")
CurrentTable.Cols("合计_天数").Move(2)
CurrentTable.Cols("合计_出勤").Move(3)
CurrentTable.Cols("合计_公出").Move(4)
CurrentTable.Cols("合计_出勤率").Move(5)
CurrentTable.Cols("合计_公休").Move(6)
CurrentTable.Cols("合计_事假").Move(7)
CurrentTable.Cols("合计_病假").Move(8)
CurrentTable.Cols("合计_其他").Move(9)
Tables("当月个人考勤汇总").AutoSizeCols()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar

做了一个半成品，实现了将字符列加入水平分组，下一步应该如何做，请各位老师指教，谢谢！！

 难点：日期是动态的，如何将数据分类合计，达到像交叉表汇总按钮一样的效果。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.rar