百分比问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 百分比问题

共有2527人关注过本帖树形打印复制链接主题：百分比问题

douglas738888

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

百分比问题

Post By：2015/8/14 16:11:00 [只看该作者]

老师指导下下，以下代码，因为HorizontalProportion 不能生成%，而是0.0000，特增加了For Each........代码，但报错为无法引用实例

Dim b1 As New SQLCrossTableBuilder("统计表2","门市客户信息")

b1.C

b1.HGroups.AddDef("心理价位") '根据价位区间分组

b1.VGroups.AddDef("服务需求","服务需求_{0}")

b1.Totals.AddDef("客户名称",AggregateEnum.Count)

b1.Filter = "进店日期 >= #" & e.Form.Controls("DateTimePicker20").Value & "# And 进店日期 <= #" & e.Form.Controls("DateTimePicker02").Value & "#"

b1.HorizontalTotal = True

b1.VerticalTotal = True

b1.HorizontalProportion = True

For Each da As DataCol In Tables("主窗口_Table6").DataTable.DataCols

If da.Caption.Contains("份额") Then

da.SetFormat("#0.00%")

End If

Tables("主窗口_Table6").DataSource = b1.BuildDataSource()

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/8/14 16:14:00 [只看该作者]

前后位置调换

Tables("主窗口_Table6").DataSource = b1.BuildDataSource()

For Each da As DataCol In Tables("主窗口_Table6").DataTable.DataCols

If da.Caption.Contains("份额") Then

da.SetFormat("#0.00%")

End If

douglas738888

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1172 积分：8772 威望：0 精华：0 注册：2012/4/18 16:28:00

Post By：2015/8/14 16:19:00 [只看该作者]

哦，要先生成统计表后，在对统计表数据列进行设置%。谢谢老师！！

主题：百分比问题