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

以下是引用wzl0927在2014-4-2 13:04:00的发言：
这个问题一直困扰着我。。我在这个项目中新建一个表格。。。通过代码只要产品名称一列

此主题相关图片如下：qq截图20140402125733.png

还是一样。。

我把其他的代码全部注释。。只要这么多

Dim gx As String = Tables("质检表").Current("工序顺序")

Dim MC As String = Tables("质检表").current("产品名称")

MC = MC & "-" & gx

Dim r11 As Row = Tables("质检表").Current

Dim r21 As Row = Tables("半成品明细").AddNew

r21("产品名称")= MC

结果还是一样

看19楼，你msgbox(mc)看看是否有两行内容。

那就是数据的问题了。处理一下对应的表，把第一行内容删除就正常了。

For Each dr As DataRow In DataTables("xxx").DataRows
    Dim s As String = dr("产品名称")
    Dim idx1 As Integer = s.LastIndexOf(chr(10))
    Dim idx2 As Integer = s.LastIndexOf(chr(13))
    Dim idx As Integer
    If idx1 > -1 OrElse idx2 > -1 Then
        idx = iif(idx1>idx2, idx1, idx2)
        dr("产品名称") = s.SubString(idx+1)
    End If
Next

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

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

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

next

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