主题：统计结果导入固定表的问题

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("单位")