代码出现错误。。望纠正 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在质检表中点已检按钮后。会在半成品明细表中添加一项产品名称后面会自动跟后缀。

现在出现的问题是。有些产品跟了后缀。有些产品没有。

自己检查不出来。。请高手看看。。

如：质检表中的六轴810胶套圈

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生产管理(1).foxdb

上传了项目，附上代码：

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

登不上去吗？我可以连接上数据源啊。

质检窗口。。不好意思打错了。

。。代码并没有出错窗口弹出就是结果出错了。。

功能也实现了。。。但是偶尔会出现一些产品的产品名称后面没有加后缀

。是不是代码不够严谨。。。我也是检查不出来才求助各位大神

是填上数据后点已检在半成品库存窗口里找。。。会发现刚才添加的六轴810胶套圈并没有加后缀。

理论上应该是它在半成品库存在个表格里找有没有六轴810胶套圈-2 如果没有加新增一项名称为六轴810胶套圈-2 如果有它就会在半成品明细表中

新增一项六轴810胶套圈-2 并把质检的数据复制过去。。

有些产品可以实现这个功能。

个别产品不行

[此贴子已经被作者于2014-4-1 14:51:40编辑过]

我复制的是一段代码。。。。我也在前面的代码上加上标志位，来查看哪里出错。但是没有错误提示。代码是正常运行的。按讲，代码能正常跑起来，而且大部分产品都能正常运作。说明代码本身逻辑是没有问题。是不是不够严谨，，才导致个别产品的结果出错（也没有错误提示。如：六轴810胶套圈，通过这段代码后，他的名称就没有变，就只是没有加后缀）

如果别的地方有修改产品名称列的内容。那其他产品也会出现同样的问题才对