主题：代码出现错误。。望纠正

参考这个方法http://www.foxtable.com/help/index.html?n=1485.htm 调试一下就知道了.

不是有错误提示，才是错误的代码，逻辑性的错误不一定会引发错误提示。

分析关键变量的值，也是调试分析的一种，修改一下代码，用加不上后缀的数据进行测试：

 

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
    Messagebox.show("mc = " & mc)
    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

    Messagebox.show("产品名称第一次 = " & r20("生产编号"))
    r20("入库_合格品")=r10("合格品")
    r20("入库_工序")=r10("工序顺序")
    r20("入库_部门")=r10("加工部门")
    r20("入库_日期")=r10("交货日期")
    r20("入库_不良品")=r10("不良品_收")
    r20("入库_报废品_质检后")=r10("报废品")
    Messagebox.show("产品名称第二次 = " & r20("生产编号"))
Else
    MessageBox.Show("程序出错,请联系管理员")
    Return
End If

 

 

调试没有问题，结果还是出问题了。。半成品库存和明细两个表格也没有写事件，没有对列名修改

r4("产品名称")= MC  为它赋值前,弹出一下MC的值看看.

 在13楼截图那里看到了换行，是质检表里的数据不正确？你拉高表格看看是否换行了，有了多余的内容。

说明这里的代码没有问题，是有其他代码设置了半成品明细表的产品名称列内容。

 

自己慢慢排查，搞不定就单独做个例子，输入测试数据，写上代码，详细告诉大家怎样测试这个问题。

你整个项目上传，代码众多，业务逻辑复杂，他人看得稀里糊涂的，因为自己的业务只有自己懂。

赋值前  弹出。。。我也试过了  结果一样。   换行是什么意思。。数据应该不会有错。因为其他产品名称能行得通。就是个别不加后缀

针对这个问题，单独做个例子发上来测试，保留有问题的数据，详细告诉大家怎样测试。

现在大家并不明白怎么测试你说的问题。

 

换行，是指：表格数据有两行，比如

 

第一行内容

第二行内容 - 后缀

 

 由于表格单元格高度问题，只看到 【第一行内容】

这个问题一直困扰着我。。我在这个项目中新建一个表格。。。通过代码只要产品名称一列