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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  临时表在窗口中显示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79601)

--  作者：digger_deng
--  发布时间：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
--  发布时间：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("升班率")
如果在命令窗口运行上面的代码，显示正确

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

--  作者：大红袍
--  发布时间：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%")