开发篇- foxtable编程 - 统计数据 - 设置合并模式
以下是引用roy78在2009-10-12 23:13:00的发言:
这是窗口中的也在那设置?
呵呵,我就没有看出来是在窗口!
Dim b As New SQLCrossTableBuilder("统计表1","合同明细表")
b.C
b.AddTable("合同明细表","产品ID","SPLIST","产品ID") '添加统计表
b.AddTable("合同明细表","客户ID","客户资料","客户ID") '添加统计表
b.AddTable("合同明细表","合同ID","销售合同表","合同ID") '添加统计表
b.AddCols("SPLIST","品名") '指定产品名称列来自产品表
b.AddCols("客户资料","客户名称") '指定客户名称列来自客户表
b.AddCols("销售合同表","合同号")
b.AddCols("合同明细表","规格")
'b.HGroups.AddDef("日期",DateGroupEnum.Year,"年") '添加日期列用于垂直分组,按年分组
b.HGroups.AddDef("客户名称") '添加产品列用于垂直分组
b.HGroups.AddDef("合同号")
b.HGroups.AddDef("规格")
b.VGroups.AddDef("品名","合同基本明细_{0}") '添加客户列用于水平分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.Totals.AddDef("实际交货量") '添加数量列用于统计
b.Totals.AddDef("欠量") '添加数量列用于统计
b.Exprs.Adddef("应收货款","[数量]*[单价]") '添加数量列用于统计
Tables("合同临时统计_Table1").DataSource = b.BuildDataSource
是不是要加上一会什么代码啊? 最好是自由合并的,谢了
参考帮助:
开发篇- foxtable编程 - 统计数据 - 设置合并模式
这里告诉你如何通过代码合并Table,任何Table都行
With Tables("合同临时统计_Table1")
.Redraw = False
.MergeMode = MergeModeEnum.Free
.MergeCols.Clear()
.MergeSort = ""
.AllowMerge = True
.Redraw = True
End With
加上去了啊,没合并啊