主题：怎样从父子表不同列中去重提取唯一值，写入word报表

参考代码

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("编号")
g.Groups.AddDef("档案记载数据")
g.Totals.AddDef("档案记载数据", AggregateEnum.Count, "个数")
g.Build()
Dim dt As DataTable = DataTables("统计表1")

Dim tm As String  = ProjectPath & "Attachments\报表检验问题说明.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\报表检验问题说明.doc" '指定目标文件
Dim t As Table = Tables("表B")
Dim wrt As New WordReport(t,tm,fl) '定义一个WordReport
For i As Integer = t.TopPosition To t.BottomPosition
    Dim r As Row = t.Rows(i)
    Dim str As String = dt.GetComboListString("档案记载数据", "个数=1 and 编号='" & r("编号") & "'").replace("|", vbcrlf)
    wrt.Replaceone("[唯一值]", str) '用代码计算出总的销售数量并替换模板中的合计标记
    wrt.Buildone(r) '生成报表
Next
wrt.Show() '显示报表