- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码出现错误。。望纠正 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48583)
-- 发布时间：2014/4/1 12:48:00
-- 代码出现错误。。望纠正
在质检表中 点已检按钮后。会在半成品明细表中添加一项 产品名称后面会自动跟后缀。
现在出现的问题是。有些产品跟了后缀。有些产品没有。
自己检查不出来。。请高手看看。。
如：质检表中的六轴810胶套圈
上传了项目，附上代码：
If Tables("质检表").Current("已检")= True Then
Dim dr1 As DataRow = DataTables("生产进度表").Find("生产编号=\'" & bh & "\' and 待氧化工序=\'" & gx & "\'")
Dim MC As String = Tables("质检表").current("产品名称")
If dr1 IsNot Nothing Then
MC = MC & "-" & "DYH"
Else
MC = MC & "-" & GX
End If
Dim dr2 As DataRow = DataTables("半成品库存").find("产品名称=\'" & MC & "\'")
If dr2 Is Nothing Then
Dim r4 As Row = Tables("半成品库存").AddNew(1)
r4("产品名称")= MC
End If
Dim r10 As Row = Tables("质检表").Current
Dim r20 As Row = Tables("半成品明细").AddNew(1)
r20("生产编号")=r10("生产编号")
r20("产品名称")= MC
r20("入库_合格品")=r10("合格品")
r20("入库_工序")=r10("工序顺序")
r20("入库_部门")=r10("加工部门")
r20("入库_日期")=r10("交货日期")
r20("入库_不良品")=r10("不良品_收")
r20("入库_报废品_质检后")=r10("报废品")
Else
MessageBox.Show("程序出错,请联系管理员")
Return
End If
-- 发布时间：2014/4/1 13:59:00
--
没有数据源。
-- 发布时间：2014/4/1 14:18:00
--
登不上去吗？ 我可以连接上数据源啊。
-- 发布时间：2014/4/1 14:28:00
--
质检表何来的按钮？
-- 发布时间：2014/4/1 14:28:00
--
1、你没有把数据源上传；或者你把外部表重定向成外部表发上来；
2、代码太多不好分析。自己调试一下吧 http://www.foxtable.com/help/topics/1485.htm
-- 发布时间：2014/4/1 14:43:00
--
质检窗口。。不好意思打错了。
。。代码并没有出错窗口弹出就是结果出错了。。
功能也实现了。。。但是偶尔会出现 一些产品的产品名称后面没有加后缀
。是不是代码不够严谨。。。我也是检查不出来才求助各位大神
-- 发布时间：2014/4/1 14:45:00
--
我输入810 点击查询 可以查询出
此主题相关图片如下：qq截图20140401144528.png
-- 发布时间：2014/4/1 14:51:00
--
是填上数据后 点 已检 在半成品库存 窗口里找。。。会发现刚才添加的六轴810胶套圈 并没有 加后缀。
理论上 应该是它在半成品库存在个表格里找 有没有 六轴810胶套圈-2 如果没有 加新增一项 名称为 六轴810胶套圈-2 如果有 它就会在半成品明细表中
新增一项 六轴810胶套圈-2 并把 质检的数据复制过去。。
有些产品可以实现这个功能。
个别产品不行
[此贴子已经被作者于2014-4-1 14:51:40编辑过]
-- 发布时间：2014/4/1 14:51:00
--
单单从一楼的代码逻辑来说，一定会加上后缀的。
楼主找一些加不上后缀的数据，自己调试分析一下：
http://www.foxtable.com/help/index.html?n=1485.htm
还要注意是否有别的地方有代码，修改了产品名称列的内容，导致后缀没了。
-- 发布时间：2014/4/1 15:03:00
--
我复制的是一段代码。。。。我也在前面的代码上 加上 标志位，来查看哪里出错。但是没有错误提示。代码是正常运行的。按讲，代码能正常跑起来，而且大部分产品都能正常运作。说明代码本身逻辑是没有问题。是不是不够严谨，，才导致个别产品的结果出错（也没有错误提示。如：六轴810胶套圈，通过这段代码后，他的名称就没有变，就只是没有加后缀）
如果别的地方有修改产品名称列的内容。那其他产品也会出现同样的问题才对