主题：[求助]怎样把交叉统计表在窗口中的Table中打开，并指定列名和列宽？

设计交叉统计表如下：
Dim g As New CrossTableBuilder("计划执行情况表", DataTables("jh"), "[xmrq] Is Not Null")
g.Caption = "计划执行情况表"
g.HGroups.AddDef("nd")
g.VGroups.AddDef("xmrq", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("xmrq", "{0}月")
g.Totals.AddDef("xmbh", AggregateEnum.Count, "项目数量")
g.Totals.AddDef("xmys", "项目预算")
g.HorizontalTotal = True
g.Decimals = 2
g.Filter = "[xmrq] Is Not Null"
g.Build()
MainTable = Tables("计划执行情况表")

执行后，生成临时表与其他数据表在一起。想在计划执行窗口中Table1表打开此表，并指定列名和列宽。请老师指教！

问题部分解决，谢谢老师！问题是：

生成交叉统计代码为：

Dim g As New CrossTableBuilder("计划执行情况表", DataTables("jh"))
g.Caption = "计划执行情况表"
g.HGroups.AddDef("年度")
g.VGroups.AddDef("xmrq", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("xmrq", "{0}月")
g.Totals.AddDef("xmbh", AggregateEnum.Count, "项目数量")
g.Totals.AddDef("xmys", "项目预算")
g.HorizontalTotal = True
g.Decimals = 2
Dim Filter As String
With e.Form.Controls("起始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "xmrq >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("截止日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "xmrq <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("jh").Filter = Filter
End If
g.Filter = Filter
g.Build()
Tables("计划执行_Table1").DataSource = g.BuildDataSource()

如何按SetColVisibleWidth(列名1|宽度1|列名2|宽度2|列名3|宽度3...)设置列宽，因为列名不固定（年度、月份均不确定）？