以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码编写有误请帮忙改正  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=157519)

--  作者:文竹2017
--  发布时间:2020/10/19 13:24:00
--  代码编写有误请帮忙改正

1.生产计划通过半成品用量分解成半成品构件再通过构件用量分家成构件需求已经实现

2、数控构件下料和月度构件盘点通过构件需求表中下料需求汇总

3、构件下料表中的下料数量通过半成品用量自动生成半成品任务单再通过产品用量生成成品入库

4、代码有误

希望及时给予指导和更改


--  作者:文竹2017
--  发布时间:2020/10/19 14:46:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理.foxdb


图片点击可在新窗口打开查看此主题相关图片如下:10001.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:10002.png
图片点击可在新窗口打开查看

--  作者:有点酸
--  发布时间:2020/10/19 14:54:00
--  
楼主您传错文件了吧?你发上来的文件,并没有"数控下料表"哦
--  作者:文竹2017
--  发布时间:2020/10/19 15:05:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理.foxdb


--  作者:文竹2017
--  发布时间:2020/10/19 15:06:00
--  
不好意思让你见笑了
--  作者:有点酸
--  发布时间:2020/10/19 15:37:00
--  
第一个问题,可能是文件有问题,我压缩一下项目,重新打开后正常了。
第二个问题在于代码:

Dim dr2 As DataRow = DataTables("构件需求").Find("构件=\'" & dr("构件") & "\'")

而dr来自于:
Dim dr As DataRow = DataTables("半成品任务单").Find("半成品描述=\'" & e.NewValue & "\'")

半成品任务单这个表并没有构件列啊,这属于设计逻辑问题,你需要自己修改。

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