主题：增加表标题

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

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
不知如何修改？请指教，谢谢！