| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 百分比问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73232) |
| -- 作者：douglas738888 -- 发布时间：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 Next Tables("主窗口_Table6").DataSource = b1.BuildDataSource() |
| -- 作者：大红袍 -- 发布时间：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
Next
|
| -- 作者：douglas738888 -- 发布时间：2015/8/14 16:19:00 -- 哦，要先生成统计表后，在对统计表数据列进行设置%。 谢谢老师！！ |