以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  合并  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117858)

--  作者:outcat
--  发布时间:2018/4/20
--  合并

此主题相关图片如下: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


--  作者:有点甜
--  发布时间:2018/4/20 9:03:00
--  

如果你用交叉统计,你垂直分组是什么?如果没有垂直分组,那,你应该使用【分组统计】,而不是【交叉统计】


--  作者:有点甜
--  发布时间:2018/4/20 9:05:00
--  

修改列名,参考

 

http://www.foxtable.com/webhelp/scr/0193.htm

 

http://www.foxtable.com/webhelp/scr/1275.htm