主题：[求助]

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新2.txt

此主题相关图片如下：qq图片20160112213241.png

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