Dim g As New GroupTableBuilder("填报部门每月统计表", DataTables("Input"))
g.Groups.AddDef("出差开始日期", "月")
g.Groups.AddDef("填报部门")
g.Groups.AddDef("出差人")
g.Totals.AddDef("金额")
g.VerticalTotal = True
g.Build()
MainTable = Tables("填报部门每月统计表")
-- 作者:有点甜
-- 发布时间:2018/3/26 11:36:00
--
你的表格数据,应该有多余字符,比如空格或者换行符之类的。
编写下面代码处理一下原表数据,如
For Each r As Row In Tables("表A").rows For Each c As Col In r.Table.cols If c.DataCol.Expression = Nothing Then r(c) = cstr(r(c)).trim() End If Next Next