以文本方式查看主题

-  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=69313)

--  作者:zcgmxf
--  发布时间:2015/6/2 21:36:00
--  [求助]
老师好!这段交叉统计代码在主界面中可以正常执行,但在窗口中占比变成了小数。请指教。
Dim g As New CrossTableBuilder("统计表2", DataTables("登记总表"))
g.HGroups.AddDef("日期", DateGroupEnum.Year, "统计日期_年度")
g.HGroups.AddDef("日期", "统计日期_月份")
g.VGroups.AddDef("接诊医生", "{0}_接诊人数")
g.Totals.AddDef("病人姓名", AggregateEnum.Count, "病人姓名")
g.HorizontalTotal = True
g.HorizontalProportion = True
g.Horiz
g.Subtotal = True
g.Build()
MainTable = Tables("统计表2")    窗口中为:Tables("窗口统计_table1").DataSource = g.BuildDataSource


--  作者:狐狸爸爸
--  发布时间:2015/6/2 22:13:00
--  
设置显示列的显示格式:
http://www.foxtable.com/help/topics/1659.htm


--  作者:zcgmxf
--  发布时间:2015/6/2 22:22:00
--  
分组统计的表又能在窗口正确显示啊。


--  作者:zcgmxf
--  发布时间:2015/6/2 22:26:00
--  
老师,统计表怎么设置显示列的显示格式呢?
--  作者:有点酸
--  发布时间:2015/6/2 22:42:00
--  
例如:

Dim g As New CrossTableBuilder("统计表1", DataTables("订单"))
g.HGroups.AddDef("产品")
g.VGroups.AddDef("客户")
g.Totals.AddDef("数量", "数量")
g.HorizontalProportion = True
g.VerticalProportion = True
Tables("窗口1_Table1").DataSource  = g.BuildDataSource
For Each dc As DataCol In DataTables("窗口1_Table1").DataCols
    If dc.Caption.IndexOf("占比") >= 0  OrElse dc.Caption.IndexOf("份额") >= 0 
        dc.SetFormat("0.00%")
    End If
Next

--  作者:zcgmxf
--  发布时间:2015/6/2 23:45:00
--  
谢谢!