-- 作者:670163008
-- 发布时间:2020/3/20 15:31:00
-- 统计结果导入固定表的问题
Dim g As New CrossTableBuilder("统计表1", DataTables("稿件")) g.HGroups.AddDef("单位") g.VGroups.AddDef("类型") g.Totals.AddDef("标题", AggregateEnum.Count) g.Build() For Each rr As Row In Tables("统计表1").rows Dim drr As DataRow = DataTables("单位").Find("单位名称=\'" & rr("单位") & "\'") If drr IsNot Nothing Then drr("文字稿件") = rr("文字稿件") drr("视频稿件") = rr("视频稿件") End If Next MainTable = Tables("单位")
|