明白,但是列名是什么呢?
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("#,###") ----此处列名填入什么?