- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：窗口表份额百分比显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80699)
-- 发布时间：2016/1/29 14:37:00
-- 求助：窗口表份额百分比显示
老师，您好。
生成的统计表份额是百分比显示
此主题相关图片如下：111.jpg
窗口表中引用统计表数据，份额无法显示百分比
此主题相关图片如下：222.jpg
窗口表代码如下：
Dim g As New CrossTableBuilder("统计表13", DataTables("机台欠料"))
g.HGroups.AddDef("欠料日期", DateGroupEnum.Year, "年度")
g.VGroups.AddDef("回复_责任单位")
g.Totals.AddDef("_Identify", AggregateEnum.Count, "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.Decimals = 2
g.FromServer = True
g.Build()
\'MainTable = Tables("统计表13")
Tables("欠料统计_Table2").DataSource = g.BuildDataSource
Tables("欠料统计_Table2").font = New Font("宋体", 12)
[此贴子已经被作者于2016/1/29 14:38:20编辑过]
-- 发布时间：2016/1/29 14:39:00
--
Dim g As New CrossTableBuilder("统计表13", DataTables("机台欠料"))
g.HGroups.AddDef("欠料日期", DateGroupEnum.Year, "年度")
g.VGroups.AddDef("回复_责任单位")
g.Totals.AddDef("_Identify", AggregateEnum.Count, "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.Decimals = 2
g.FromServer = True
Tables("欠料统计_Table2").DataSource = g.BuildDataSource
Tables("欠料统计_Table2").font = New Font("宋体", 12)
-- 发布时间：2016/1/29 15:36:00
--
老师，我做了个例子，麻烦您看下：还是不能显示百分比。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1129.table |
[此贴子已经被作者于2016/1/29 15:37:46编辑过]
-- 发布时间：2016/1/29 15:41:00
--
Dim g As New CrossTableBuilder("统计表13", DataTables("表A"))
g.HGroups.AddDef("欠料日期", DateGroupEnum.Year, "年度")
g.VGroups.AddDef("回复_责任单位")
g.Totals.AddDef("_Identify", AggregateEnum.Count, "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.Decimals = 2
g.FromServer = True
Tables("欠料统计_Table1").DataSource = g.BuildDataSource
Tables("欠料统计_Table1").font = New Font("宋体", 12)
For Each c As Col In Tables("欠料统计_Table1").Cols
If c.Caption Like "*份额" Then
c.DataCol.SetFormat("0.00%")
End If
Next