主题：[求助]交叉统计问题

    Dim Cols0() As String = {1,2,3,4,5,6}
    For  i0 As Integer =  0 To Cols0.Length - 1
        If .DataCols.Contains("余额_" & Cols0(i0)) = False Then
            .DataCols.Add("余额_" & Cols0(i0),Gettype(Double))
            .DataCols.Add("余额_" & Cols0(i0) & "hp",Gettype(Double))
            If .DataCols("余额_" & Cols0(i0)).Caption Is Nothing Then

..
            End If
        End If
    Next

交叉统计表生成后，垂直方向必须要有6个分组，不足时添加至6个，现在问题是不足6个分组时，新增的分组（列），如何指定标题

假设正好6个分组时，标题分别是1 2 3 4 5 6

不满6个时，例如只有3列，标题是1-6随机（比如3 4 6），新增的3列标题必须分别是1 2 5，如何实现