以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]交叉统计中,汇总的数据如何显示成带千位显示?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12949)

--  作者:jackchen
--  发布时间:2011/9/21 23:05:00
--  [求助]交叉统计中,汇总的数据如何显示成带千位显示?

请教,如何在汇总中,显示数据成带千位符号的,比如

  500000, 显示成500,000这样,方便查看数据,

  


--  作者:狐狸爸爸
--  发布时间:2011/9/21 23:11:00
--  

统计结束后,用代码设置:

 

http://www.foxtable.com/help/topics/1659.htm

 


--  作者:jackchen
--  发布时间:2011/9/22 9:01:00
--  

没有办法啊,

   交叉汇总后,产生的是tables的,不是datatables的,而且由于不是固定的列名,所以无法重新定制格式

 

 

Tables("RS统计_Table1").DataSource = g.BuildDataSource()

 

 



--  作者:狐狸爸爸
--  发布时间:2011/9/22 9:05:00
--  

Table都有一个DataTable属性的,所以可以这样:

 

Tables("RS统计_Table1").DataTable.Datacols("XXX").SetFormat("eee")


--  作者:jackchen
--  发布时间:2011/9/22 22:45:00
--  

明白,但是列名是什么呢?

 

Tables("RS统计_Table1").DataTable.Datacols("XXX").SetFormat("eee")

 

 

因为是自动生成的统计表格,列名不是固定的啊,我贴出代码,帮忙看看


Dim g As New CrossTableBuilder("RS统计1", DataTables("RS"))
g.HGroups.AddDef("HD")
g.VGroups.AddDef("Trx Date", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("Trx Date", DateGroupEnum.Quarter, "{0}季")
g.Totals.AddDef("Qty", "Qty")
g.Totals.AddDef("Sales Amount (USD)", "Sales Amount (USD)")
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 0

g.Filter = "[HD] in (\'GHHR\',\'GHBC\',\'GHHS\')"
Forms("RS统计").Open()

Tables("RS统计_Table1").DataSource = g.BuildDataSource()
Tables("RS统计_Table1").AllowEdit =True
Tables("RS统计_Table1").AutoSizeCols()
Tables("RS统计_Table1").Cols.Frozen = 1
Tables("RS统计_Table1").DataTable.DataCols(???????).SetFormat("#,###")   ----此处列名填入什么?

 

 

 


--  作者:mr725
--  发布时间:2011/9/22 22:55:00
--  

就是你要加“千分符号”的列嘛。


--  作者:狐狸爸爸
--  发布时间:2011/9/23 8:45:00
--  

生成统计表之后,你可以利用查看表结构,获得统计表各列的名称:

 

http://www.foxtable.com/help/topics/0193.htm