关于自定义汇总 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim b As New SQLCrossTableBuilder("费用明细表","部门损益总账")

b.AddTable("部门损益总账","部门名称","部门档案","部门名称")

b.AddTable("部门损益总账","科目编号","科目档案","科目编码")

b.HGroups.AddExp("日期","所属日期")

b.HGroups.AddDef("所属单位")

b.HGroups.AddDef("上级部门","部门")

b.HGroups.AddDef("部门类型")

b.VGroups.AddDef("成本类别")

b.VGroups.AddDef("{部门损益总账}.科目名称")

b.Totals.AddDef("借方发生")

b.Decimals = 0

b.HorizontalTotal = True

b.Subtotal = True

b.SubtotalLevel = 1

b.Build '生成统计表

With Tables("费用明细表")

.Cols("日期").Move(1)

.Cols("部门类型").Move(2)

End With

With Tables("费用明细表")

.AutoSizeCols(15)

.Cols("日期").PrintWidth = 20

.Cols("所属单位").PrintWidth = 20

.Cols("部门").PrintWidth = 35

.AutoSizeHeaderRow()

End With

Forms("费用明细查询").Open()

MainTable = Tables("费用明细表")

CurrentTable.Cols.Frozen = 4

[此贴子已经被作者于2015/12/17 20:39:55编辑过]

.Cols("日期").Width = 20

.Cols("所属单位").Width = 20

.Cols("部门").Width = 35

.AutoSizeCols(15) '统一设置统计列的宽度

.AutoSizeHeaderRow()

我测了一下，这两句对统计列好像起不了作用，统计列的宽度好象是根据最后一层标题的长度来定的，我增加了一层”本月、累计“标题，.AutoSizeCols(15)这句就起作用了

此主题相关图片如下：11.png

请帮忙

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目6.foxdb

不要用这种方法来做啊，叫你固定设计好表然后填充数据进去计算啊。不然每种报表你都不会做啊。

好吧，我偿试一下

主题：关于自定义汇总