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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 临时表在窗口中显示问题

共有1705人关注过本帖树形打印复制链接主题：临时表在窗口中显示问题

digger_deng

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

加好友

发短信

等级：幼狐帖子：133 积分：1453 威望：0 精华：0 注册：2015/6/15 14:05:00

临时表在窗口中显示问题 发帖心情

Post By：2016/1/5 20:05:00 [只看该作者]

Dim g As New CrossTableBuilder("升班率", DataTables("课程记录"))

g.Caption = "升班率"

g.HGroups.AddDef("分类")

g.HGroups.AddDef("星期")

g.HGroups.AddDef("序号")

g.VGroups.AddDef("已交","升|已升")

g.Totals.AddDef("姓名", AggregateEnum.Count, "升班")

g.Build()

DataTables("升班率").DataCols.Add("升班率",Gettype(Double),"姓名_2/(姓名_1+姓名_2)")

DataTables("升班率").DataCols("升班率").SetFormat("#0.00%")

Tables("通用报表管理_Table1").DataSource =DataTables("升班率")

以上的代码，创建一个交叉表，并加一列，格式化此列。但是在窗口中运行，并不依照此格式显示？见附图

此主题相关图片如下：jt.jpg

digger_deng

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

加好友

发短信

等级：幼狐帖子：133 积分：1453 威望：0 精华：0 注册：2015/6/15 14:05:00

Post By：2016/1/5 20:08:00 [只看该作者]

Dim g As New CrossTableBuilder("升班率", DataTables("课程记录"))

g.Caption = "升班率"

g.HGroups.AddDef("分类")

g.HGroups.AddDef("星期")

g.HGroups.AddDef("序号")

g.VGroups.AddDef("已交","升|已升")

g.Totals.AddDef("姓名", AggregateEnum.Count, "升班")

g.Build()

DataTables("升班率").DataCols.Add("升班率",Gettype(Double),"姓名_2/(姓名_1+姓名_2)")

DataTables("升班率").DataCols("升班率").SetFormat("#0.00%")

MainTable = Tables("升班率")

如果在命令窗口运行上面的代码，显示正确

dvubb 此主题相关图片如下：jt1.jpg

大红袍

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

加好友

发短信

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

Post By：2016/1/5 20:11:00 [只看该作者]

Dim g As New CrossTableBuilder("升班率", DataTables("课程记录"))
g.Caption = "升班率"
g.HGroups.AddDef("分类")
g.HGroups.AddDef("星期")
g.HGroups.AddDef("序号")
g.VGroups.AddDef("已交","升|已升")
g.Totals.AddDef("姓名", AggregateEnum.Count, "升班")

Tables("通用报表管理_Table1").DataSource = g.BuildDataSource
Tables("通用报表管理_Table1").DataTable.DataCols.Add("升班率",Gettype(Double),"姓名_2/(姓名_1+姓名_2)")
Tables("通用报表管理_Table1").DataTable.DataCols("升班率").SetFormat("#0.00%")

下一主题 >> << 上一主题

主题：临时表在窗口中显示问题