主题：增加表标题

我想给统计表加个标题，运行后，没有报错，也没统计结果，代码如下：

Dim ndxz As WinForm.ComboBox = e.Form.Controls("年度选择")
            Dim yfxz As WinForm.ComboBox = e.Form.Controls("月份选择")
            If ndxz.value > 0 And yfxz.value > 0 Then
                Dim dt1 As New Date(ndxz.value, yfxz.value, 1)
                Dim dt2 As New Date(ndxz.value, yfxz.value, Date.DaysInMonth(ndxz.value,yfxz.value)) '获取该月的最后一天
                Dim g As New CrossTableBuilder("统计表1", DataTables("派工单明细表"))
                Dim dt As fxDataSource
                g.HGroups.AddDef("村民组")
                g.HGroups.AddDef("户主姓名")
                g.HGroups.AddDef("派工日期", DateGroupEnum.None)
                g.VGroups.AddDef("工程名称")
                g.Totals.AddDef("工时", "工时")
                g.Totals.AddDef("工价", "工价")
                g.OrderByTotal = True
                g.HorizontalTotal = True
                g.VerticalTotal = True
                g.Decimals = 2
                g.Subtotal = True
                g.Filter = "[派工日期] >= #" & dt1 & "# And [派工日期] <= #" & dt2 & "#"
                g.Caption ="江安镇徐柴村" & ndxz.value & "年" & yfxz.value & "月公用工统计表"
                g.Build()
                dt = g.BuildDataSource()
                Tables("公用工查询_Table1").DataSource = dt
            End If
不知如何修改？请指教，谢谢！

Dim g As New CrossTableBuilder("江安镇徐柴村" & ndxz.value & "年" & yfxz.value & "月公用工统计表", DataTables("派工单明细表"))

我的表达可能错了，我不是想将“统计表1”的名称改为“江安镇徐柴村**年**月公用工统计表”，而是想在生成的“统计表1”中的第一行加上上面这一行（江安镇徐柴村**年**月公用工统计表）请指教，谢谢！

tables("统计表1").rows(0)("某某列") = 江安镇徐柴村" & ndxz.value & "年" & yfxz.value & "月公用工统计表"

代码在“公用工查询”窗体的“月份选择”控件的selctedindexchanged事件中

不知道到底想干嘛，画图说明一下

我就是想在生成的统计表上加个表头

此主题相关图片如下：设置需求.jpg

建议还不如在窗口表上方放一个标签控件显示这种标题，把标签控件设置为有边框即可。