主题：动态修改了列标题后如何将同一列标题归在一起?

For Each cl As DataCol In DataTables("统计表1").DataCols

        Case "款号","品名","分配到组当日订单任务(件)","当日人数","每人每日定额(元)"

            With DataTables("统计表1")

                .DataCols(cl.Name).Caption = "1.劳动生产任务分配数据_" & cl.Caption

                .BuildHeader()

            End With

        Case "当日产量(件)","单价(元)","产值(元)","人均产值(元)","超欠%","本月累计完成产值(元)","本月累计完成百分比%","累计完成数量(件)","当日完成任务的人数","当日完成任务的人数百分比%","当日实际产值低于60%的人数"

            With DataTables("统计表1")

                .DataCols(cl.Name).Caption = "2.劳动任务完成情况_" & cl.Caption

                .BuildHeader()

            End With

        Case "当日送检数量(件)","合格数量(件)","不合格数量(件)","合格率(%)","质量合格率≤70%的人数"

            With DataTables("统计表1")

                .DataCols(cl.Name).Caption = "3.质量控制统计_" & cl.Caption

                .BuildHeader()

            End With

    End Select

Next