Foxtable(狐表)用户栏目专家坐堂 → 根据不同产品的加工工序自动核算产品的加工成本


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

主题:根据不同产品的加工工序自动核算产品的加工成本

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


加好友 发短信
等级:小狐 帖子:384 积分:4174 威望:0 精华:0 注册:2011/12/31 14:28:00
根据不同产品的加工工序自动核算产品的加工成本  发帖心情 Post By:2014/2/9 13:27:00 [只看该作者]

 

下面实例中有两个表,加工成本和工序单价,在工序单价中记录各工序的单价.

在加工成本中有三列,分别为产品名称,加工工序,加工成本.其中加工工序列数据来源于工序单价表中的工序名称列.

由于各产品的加工工序不同,需要实现选择不同的工序组合时自动汇总出该产品的加工成本.

例1:甲产品,需要经过配色,贴码,包装三个工序,而在工序单价表中,配色单价1元,贴码单价3元,包装单价2元,所以甲产品的加工成本是1+3+2=6元,自动填入加工成本列.

 

请指点下用代码怎么实现.

 

刚才那例子有问题,重新上传个,请看下

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:根据不同产品的加工工序自动核算产品的加工成本.rar

[此贴子已经被作者于2014-2-9 14:00:30编辑过]

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/2/9 13:40:00 [只看该作者]

例子中的加工成本表的列名,和列举出来的列名都不一样,工序单价表中一行数据都没有。

 

把列名对上,然后人工填上几行正确的数据,方便理解、比对、测试。


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


加好友 发短信
等级:小狐 帖子:384 积分:4174 威望:0 精华:0 注册:2011/12/31 14:28:00
  发帖心情 Post By:2014/2/9 13:50:00 [只看该作者]

以下是引用lsy在2014-2-9 13:40:00的发言:

例子中的加工成本表的列名,和列举出来的列名都不一样,工序单价表中一行数据都没有。

 

把列名对上,然后人工填上几行正确的数据,方便理解、比对、测试。

刚才那例子有问题,重新上传了一个,请帮看下


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


加好友 发短信
等级:狐神 帖子:4640 积分:33850 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/2/9 14:02:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:根据不同产品的加工工序自动核算产品的加工成本.zip


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


加好友 发短信
等级:小狐 帖子:384 积分:4174 威望:0 精华:0 注册:2011/12/31 14:28:00
  发帖心情 Post By:2014/2/9 14:05:00 [只看该作者]

非常感谢,完美解决

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


加好友 发短信
等级:八尾狐 帖子:1837 积分:5081 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2021/10/23 14:07:00 [只看该作者]

Dim s As String = "工序名称='" & e.DataRow("加工要求").Replace(",","' Or 工序名称='") & "'"


e.DataRow("加工要求").Replace(",","' Or 工序名称='") 这句是什么意思,想不通



太有才了,这个也想得到



 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/10/23 14:43:00 [只看该作者]

如果不加.Replace(",","' Or 工序名称='")效果是怎么样的,自己对比一下就知道了

msgbox("工序名称='" & e.DataRow("加工要求") & "'")
msgbox(s)

 回到顶部