以文本方式查看主题

-  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