主题：垂直分组由小写换成大写

1、生成后，循环每一列，满足条件的，就转换成你对应的标题。直接改也行

http://www.foxtable.com/help/topics/1275.htm

2、生成以后，动态增加列，然后循环每一行去查询。

或者是，用sql语句先查找到，再交叉统计

http://www.foxtable.com/help/topics/2307.htm

Dim t As Table = Tables("销售汇总_Table1")
t.DataSource = b.BuildDataSource
For Each c As Col In t.Cols
    If c.Caption = "第4季度" Then
        c.Caption = "第四季度"
    ElseIf c.Caption = "第三季度" Then
        c.Caption = "第三季度"
    End If
Next

t.DataTable.BuildHeader

For Each r As Row In t.Rows
    Dim fdr As DataRow = DataTables("销售预算").find("部门编号 = '" & r("部门编号") & "' and 职员编号 = '" & r("职员编号") & "'")
    If fdr IsNot Nothing Then
        r("部门编号") = fdr("部门编号")
    End If
Next