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