以文本方式查看主题

-  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=121965)
--  作者：nbsugu_z
--  发布时间：2018/7/16 16:36:00
--  空白行问题

Dim bd1 As New sqlGroupTableBuilder("统计表1","pzk")
bd1.C
Dim dt1 As fxDataSource
bd1.Groups.AddDef("成本_所属项目","项目分类")
bd1.Groups.AddDef("成本_提供方","材料供应商")
bd1.Totals.AddDef("成本_金额","主材料结算_金额")
bd1.Totals.AddDef("成本_数量","主材料结算_数量")
bd1.Totals.AddExp("成本_摘要", "成本_摘要", AggregateEnum.max)
dt1 = bd1.BuildDataSource()

Dim bd2 As New sqlGroupTableBuilder("统计表2","pzk")
bd2.C

Dim dt2  As fxDataSource
bd2.Groups.AddDef("付款_所属项目","项目分类")
bd2.Groups.AddDef("付款_收款方","材料供应商")
bd2.Totals.AddDef("付款_金额","已付金额")
bd2.Filter  = "付款_类别 = \'主材料\'"
dt2 = bd2.BuildDataSource()

Dim arr() As String = {"项目分类","材料供应商"}
dt1.Combine(arr,dt2,arr)

dt1.show("统计表") \'将统计结果绑定到Table  暂时不直接显示


Dim t As Table = Tables("统计表")
With t.DataTable.DataCols  \'用表达式列计算库存数据
    .Add("未付款金额",Gettype(Double), "IsNull([主材料结算_金额],0) - ISNULL([已付金额],0)")
End With

With Tables("统计表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("项目分类")
    .MergeCols.Add("材料供应商")
    .MergeSort = "项目分类,材料供应商"
    .AllowMerge = True
End With

Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "项目分类"
g.TotalOn = "主材料结算_金额,主材料结算_数量,已付金额,未付款金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

 

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "主材料结算_金额,主材料结算_数量,已付金额,未付款金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

 

t.Subtotal()
MainTable = t

\'以下显示格式
Tables("统计表").cols("已付金额").DataCol.setFormat("#,###.00")
Tables("统计表").cols("主材料结算_金额").DataCol.setFormat("#,###.00")
Tables("统计表").cols("未付款金额").DataCol.setFormat("#,###.00")
Tables("统计表").cols("主材料结算_数量").DataCol.setFormat("#,###.000")

Tables("统计表").SetColVisibleWidth("项目分类|60|材料供应商|500|主材料结算_金额|120|主材料结算_数量|120|已付金额|120|未付款金额|120|成本_摘要|120")

 

 

 

老师，代码生成的汇总统计表为什么第一行始有空白行存在？如何消除

 
--  作者：y2287958
--  发布时间：2018/7/16 16:51:00
--  
因为你的数据表中某列值存在空白值，要过滤掉
--  作者：nbsugu_z
--  发布时间：2018/7/16 17:00:00
--  
不是的，可以是小 计 总计关系，请老师帮忙
--  作者：有点甜
--  发布时间：2018/7/16 18:20:00
--  
设置 bd1.Filter = "成本_所属项目 is not null"