
此主题相关图片如下:131.png

这个界面上“发砖”上面有一行空白行,这个如何能让“发砖”和上面的一行空白行合并,或者合计列不要显示“发砖了”
下面是生成这个表的代码:
DataTables("客户发砖总表").LoadFilter =""
DataTables("客户发砖总表").Load()
Dim g As New CrossTableBuilder("统计表1", DataTables("客户发砖总表"))
Dim gz As fxDataSource
g.HGroups.AddDef("日期",
DateGroupEnum.Year,
"年") '增加分组列
g.HGroups.AddDef("日期",
"月")
g.HGroups.AddDef("客户名称")
g.Totals.AddDef("总金额","发砖_金额")
g.Totals.AddDef("已发数量","发砖_数量")
g.Totals.AddDef("日期",AggregateEnum.Count,"发砖_单数")
g.HorizontalTotal
= True
g.VerticalTotal
= True
'本月统计
Dim ye As Integer = Date.Today.Year
Dim mo As Integer = Date.Today.Month
Dim dt1 As New Date(ye, mo, 1)
Dim dt2 As New Date(ye, mo, Date.DaysInMonth(ye, mo)) '获取本月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #"
& dt2 & "#"
g.Filter
= Filter
gz = g.BuildDataSource()
Tables("客户发砖当月汇总_Table1").DataSource = gz