Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于两个表两列差异统计问题


  共有2443人关注过本帖树形打印复制链接

主题：[求助]关于两个表两列差异统计问题
帅哥哟，离线，有人找我吗？
jlccrtl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00 		[求助]关于两个表两列差异统计问题  发帖心情 Post By：2015/7/21 12:54:00 [只看该作者]

A单位表格
 fa piao号码   产品名称   数量   单价  
   001A      5   1
   001B      7   2
   001C     9   3
            


B单位表格
 fa piao号码   产品名称   数量   单价  
   001B   7   2
   001C      7   3
   002D     11   4
            



现在想做一个
差异统计表
通过窗口达到如下：
 fa piao号码   产品名称  A单位产品数量   B单位产品数量   数量差异                  
   001A   5   0                    
   001B   7   7                     
   001C   9   7                     
   002D   0   11                     

怎么才能实现两个表的列“fa piao号码”自动填充到《差异统计表》
然后相同号码的“产品名称列”再接着填充到里面呢！
各位大神有啥好的建议！

单列差异统计的窗口公式如下 （不知道如何修改）

Dim f As New Filler

f.SourceTable = DataTables("A单位表格") '指定数据来源

f.SourceCols = "fa piao号码" '指定数据来源列

f.DataTable = DataTables("差异统计") '指定数据接收表

f.DataCols = "fa piao号码" '指定数据接收列

f.ExcludeExistValue = True

f.Fill() '填充数据

f = New Filler

f.SourceTable = DataTables("B单位表格") '指定数据来源

f.SourceCols = "fa piao号码" '指定数据来源列

f.DataTable = DataTables("差异统计") '指定数据接收表

f.DataCols = "fa piao号码" '指定数据接收列

f.ExcludeExistValue = True

f.Fill() '填充数据
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2015/7/21 13:11:00 [只看该作者]

填充后再计算应该就行了吧

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2015/7/21 13:12:00 [只看该作者]

Dim f As New Filler
f.SourceTable = DataTables("A单位表格") '指定数据来源
f.SourceCols = "fa piao号码,产品名称" '指定数据来源列
f.DataTable = DataTables("差异统计") '指定数据接收表
f.DataCols = "fa piao号码,产品名称" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据
f = New Filler
f.SourceTable = DataTables("B单位表格") '指定数据来源
f.SourceCols = "fa piao号码,产品名称" '指定数据来源列
f.DataTable = DataTables("差异统计") '指定数据接收表
f.DataCols = "fa piao号码,产品名称" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据
For Each dr As DataRow In DataTables("差异统计表").DataRows
    dr("A单位产品数量") = DataTables("A单位表格").Compute("sum(数量)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")
    dr("B单位产品数量") = DataTables("B单位表格").Compute("sum(数量)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")
Next
 回到顶部
帅哥哟，离线，有人找我吗？
jlccrtl
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00 		[求助]关于父表与多个子表引用字符更新问题  发帖心情 Post By：2015/7/21 13:21:00 [只看该作者]

那这样两个表  产品名称的非交集 就不显示了吧
比如B表中的D产品
 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2015/7/21 13:22:00 [只看该作者]

可以的

 回到顶部
帅哥哟，离线，有人找我吗？
jlccrtl
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00 		[求助]关于父表与多个子表引用字符更新问题  发帖心情 Post By：2015/7/21 15:08:00 [只看该作者]

Dim f As New Filler
f.SourceTable = DataTables("A单位表格") '指定数据来源
f.SourceCols = "fa piao号码,产品名称" '指定数据来源列
f.DataTable = DataTables("差异统计") '指定数据接收表
f.DataCols = "fa piao号码,产品名称" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据
f = New Filler
f.SourceTable = DataTables("B单位表格") '指定数据来源
f.SourceCols = "fa piao号码,产品名称" '指定数据来源列
f.DataTable = DataTables("差异统计") '指定数据接收表
f.DataCols = "fa piao号码,产品名称" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据
For Each dr As DataRow In DataTables("差异统计表").DataRows
    dr("A单位产品数量") = DataTables("A单位表格").Compute("sum(数量)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")
     dr("B单位产品数量") = DataTables("B单位表格").Compute("sum(数量)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")
    dr("A单位产品数量") = DataTables("A单位表格").Compute("单价","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")
     dr("B单位产品数量") = DataTables("B单位表格").Compute("单价","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")

Next

如果我还想索引单价等其他的项目 我就这样继续加 就可以是吗？？？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/21 15:13:00 [只看该作者]

dr("A单位产品单价") = DataTables("A单位表格").Compute("max(单价)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")
dr("B单位产品单价") = DataTables("B单位表格").Compute("max(单价)","fa piao号码 = '" & dr("fa piao号码") & "' and 产品名称 = '" & dr("产品名称") & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
jlccrtl
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：200 积分：1414 威望：0 精华：0 注册：2014/10/7 21:19:00 		[求助]关于父表与多个子表引用字符更新问题  发帖心情 Post By：2015/7/21 16:18:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询