主题：[求助]请教字符列汇总

有这样的三个表，想汇总成一张明细表，请指点：

 

此主题相关图片如下：未收.png

此主题相关图片如下：已收.png


此主题相关图片如下：汇总表.png

 填充多次

 

http://www.foxtable.com/help/topics/0680.htm

 

 或者用统计汇总

 

http://www.foxtable.com/help/topics/2320.htm

 

或者用sql语句

 

五、UNION 运算符

UNION运算符用于组合两个查询的结果。
例如有一个客户表，一个供应商表，我需要得到所有在中国的客户和供应商的名称和地址。
因为数据位于不同的表中，显然，我们需要用两个查询才能完成任务：

SELECT 公司名称, 地址 FROM {客户} WHERE 国家 = '中国' UNION SELECT 公司名称, 地址 FROM {供应商} WHERE 国家 = '中国'

两个查询的字段名称、个数、类型必须完全一致才行。

默认情况下，UNION会自动排除重复的行，然后你可以用ALL关键词来确保返回所有的行，例如：

SELECT 公司名称, 地址 FROM {客户} WHERE 国家 = '中国' UNION ALL SELECT 公司名称, 地址 FROM {供应商} WHERE 国家 = '中国'

用查询表或fxbuidsource

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

点击浏览该文件:字符列统计.foxdb

 参考楼上，已经跟你讲了多种方式。

未搞定，顶一下！

Dim f As New Filler   '先填充订单统计
f.SourceTable = DataTables("已收文部门")  '指定数据来源
f.SourceCols = "文件名称,已收文部门" '指定数据来源列
f.Append = False
f.Distinct = False    '允许出现重复值
f.Filter = "存档编号 = '" &  &  "'"    这个条件如何写: 来源表的存档编号要在接收表的编号内
f.DataTable = DataTables(收文情况明细)
f.DataCols = "文件名称,已收文部门"
f.Fill() '填充数据

 无语，完全看不懂你的逻辑。

 

Dim f As New Filler   '先填充订单统计
f.SourceTable = DataTables("未收文部门")  '指定数据来源
f.SourceCols = "文件名称,未收文部门,存档编号" '指定数据来源列
f.Distinct = False    '允许出现重复值
f.DataTable = DataTables("收文情况明细")
f.DataCols = "文件名称,未收文部门,存档编号"
f.Fill() '填充数据 

For Each dr As DataRow In DataTables("已收文部门").DataRows
    Dim fdr As DataRow = DataTables("收文情况明细").Find("文件名称 = '" & dr("文件名称") & "' and 存档编号 = '" & dr("存档编号") & "'")
    If fdr IsNot Nothing Then
        fdr("已收文部门") = dr("已收文部门")
    End If
Next