Foxtable(狐表)用户栏目专家坐堂 → [求助]产品分解统计代码怎样写?


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

主题:[求助]产品分解统计代码怎样写?

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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
[求助]产品分解统计代码怎样写?  发帖心情 Post By:2012/3/2 18:51:00 [只看该作者]

一个工作中常常遇到的产品分解例子,就是以订单中成品的产品为条件,求出半成品需求数量,不知怎样写代码计算,请大家帮助看看,或者有更好的思路
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2012-3-2 18:52:43编辑过]

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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2012/3/2 19:08:00 [只看该作者]

别人又不是干你这行的,你总得说明在哪个表进行怎样的计算,否则别人看都看不懂,怎么给你思路或帮你写代码。

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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2012/3/2 20:05:00 [只看该作者]

在【产品基础表】里,一个成品(产品名称)下级有多种子目录(一级分类产品)也就是半成品,现在有一个客户订单【计划产品表】给出产品(产品名称)和数量,需要用按键代码统计出需要多少半产品(一级分类产品)生产出客户订单表中的成品填充到【】里处理,  ---------这样不知道说明白没有?

 也就是【计划产品分解表】在填充过程中完成中(第二列)=(计划数量)*(产品一级分类数量)值

[此贴子已经被作者于2012-3-2 20:13:56编辑过]

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


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

计划产品分解表窗口。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.table


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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2012/3/2 22:37:00 [只看该作者]

用文本框肯定不行呀,订单中不是单一成品,一般有20多个客户一次订下几百种产品(成品),各个客户也有相同产品,只能先在表中录入订单,再统计共需要采购多少半成品才能达到要求


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/3 8:43:00 [只看该作者]

这样可以的

 

Dim Cus As List(Of String)
For Each dr1 As DataRow In DataTables("计划产品表").datarows
    For Each dr2 As DataRow In DataTables("产品基础表").Select("[产品名称] = '" & dr1("产品名称") & "'")
        Dim dr3 As DataRow = DataTables("计划产品分解表").AddNew()
        dr3("第一列") = dr2("产品一级分类名称")
        dr3("第二列") = dr1("计划数量") * dr2("产品一级分类数量")
    Next
Next
MainTable = Tables("计划产品分解表")

 

不过我估计你要的不仅仅是产品一级分类数量。

这样的问题,你自己不应该太懒,居然连产品计划表的结构也懒得设计,别人怎么知道你要的是什么?

表结构设计好,多输入一点测试数据,让别人明白你的问题,才能更快获得答案。


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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2012/3/5 1:15:00 [只看该作者]

 狐狸爸爸,请问一下,如果有多个客户订购同样产品,统计后都是重复产品值,有没有办法汇总后再显示,


图片点击可在新窗口打开查看此主题相关图片如下:qq拼音截图未命名.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/3/5 8:01:00 [只看该作者]

Dim Cus As List(Of String)
Dim dic As new Dictionary(of String,Integer)
For Each dr1 As DataRow In DataTables("计划产品表").datarows
    For Each dr2 As DataRow In DataTables("产品基础表").Select("[产品名称] = '" & dr1("产品名称") & "'")
        Dim nm As String = dr2("产品一级分类名称")
        Dim vl As Integer = dr1("计划数量") * dr2("产品一级分类数量")
        If dic.ContainsKey(nm) = False
            dic.Add(nm,vl)
        Else
            dic(nm) = dic(nm)+   vl
        End If
    Next
Next
For Each key As String In dic.keys
    Dim dr As DataRow = DataTables("计划产品分解表").AddNew()
    dr("第一列") = key
    dr("第二列") = dic(key)
Next
MainTable = Tables("计划产品分解表")


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


加好友 发短信
等级:童狐 帖子:245 积分:3629 威望:0 精华:1 注册:2010/5/9 18:45:00
  发帖心情 Post By:2012/3/5 13:03:00 [只看该作者]

 以前以为字典用的不多,忽视了,原来字典还有这样用处,真要好好学习一下,目的达到了,O(∩_∩)O谢谢

 回到顶部