- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79945)
-- 发布时间：2016/1/12 21:45:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新2.txt |
此主题相关图片如下：qq图片20160112213241.png
保留2位和千分位数字
-- 发布时间：2016/1/12 21:49:00
--
Dim g As New CrossTableBuilder("统计表45", DataTables("明细表"))
g.HGroups.AddDef("供应商名称", "", "供应商名称")
g.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("日期", "{0}月")
g.Totals.AddDef("车次", "车次")
g.Totals.AddDef("数量", "数量")
g.Totals.AddDef("应付金额", "应付金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.Build()
Tables("报表_Table7").DataSource = g.BuildDataSource()
For Each c As Col In Tables("报表_Table7").cols
If c.IsNumeric Then
c.DataCol.SetFormat("#,###.00")
End If
Next