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

质检表何来的按钮？

单单从一楼的代码逻辑来说，一定会加上后缀的。

楼主找一些加不上后缀的数据，自己调试分析一下：

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

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

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

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

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

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

说明原来输入不规范，后面跟有回车，在命令窗口执行下面的代码：

for each dr as datarow in datatables("来源表").datarows

    dr("产品名称") = dr("产品名称").Replace(vbcr,"").replace(vblf,"").Trim()

next

datatables("来源表").Save()