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

没看懂你截图表达的意思。获取不重复值，参考

http://www.foxtable.com/webhelp/scr/1435.htm

http://www.foxtable.com/webhelp/scr/2747.htm

写入报表，参考 http://www.foxtable.com/webhelp/scr/2890.htm

生成分组统计表，统计每一个值的个数。

http://www.foxtable.com/webhelp/scr/0158.htm

然后从统计表获取数据（获取个数等于1的数据）

不会做上传具体实例

参考代码

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
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 wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport
Dim str As String = dt.GetComboListString("档案记载数据", "个数=1").replace("|", vbcrlf)
wrt.Replace("[唯一值]", str) '用代码计算出总的销售数量并替换模板中的合计标记
wrt.Build() '生成报表
wrt.Show() '显示报表

word模板，修改一下。

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

点击浏览该文件:报表检验问题说明.zip

参考代码

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() '显示报表