Foxtable(狐表)用户栏目专家坐堂 → 跨表计算


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

主题:跨表计算

帅哥哟,离线,有人找我吗?
实话实说
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19390 威望:0 精华:1 注册:2008/9/12 9:19:00
跨表计算  发帖心情 Post By:2017/10/10 7:58:00 [只看该作者]

实例:计算产品表的材料成本(窗口1按钮代码?)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:产品价格.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/10 8:48:00 [只看该作者]

Dim dt1 As DataTable = DataTables("产品")
Dim dt2 As DataTable = DataTables("bom")
Dim dt3 As DataTable = DataTables("材料")
For Each dr1 As DataRow In dt1.Select("")
    Dim sum As Double = 0
    For Each dr2 As DataRow In dt2.Select("产品代码 = '" & dr1("产品代码") & "'")
        For Each dr3 As DataRow In dt3.Select("材料代码 = '" & dr2("材料代码") & "'")
            sum += dr2("产品用料") * dr3("材料单价")
        Next
    Next
    dr1("材料成本") = sum
Next

 回到顶部
帅哥哟,离线,有人找我吗?
实话实说
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2649 积分:19390 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2017/10/10 9:24:00 [只看该作者]

谢了

 回到顶部