主题：[讨论]错误信息

没有出错。

新增行的时候，出错。代码改一下

If e.DataCol.Name = "商品编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("商品名称") = Nothing
        e.DataRow("型号") = Nothing
        e.DataRow("规格") = Nothing
        e.DataRow("单价") = Nothing
    Else
        Dim dr As DataRow
        dr = e.DataRow.GetParentRow("商品信息")
        If dr IsNot Nothing
            e.DataRow("商品名称") = dr("商品名称")
            e.DataRow("型号") = dr("型号")
            e.DataRow("规格") = dr("规格")
            e.DataRow("单价") = dr("单价")
        End If
    End If
End If

 Datacolchanged事件

Select Case e.DataCol.Name
    Case "项目分类"
        e.DataRow("分类码") = GetPy(e.NewValue, True)
       
    Case "商品类别"
        e.DataRow("类别码") = GetPy(e.NewValue, True)
       
    Case "商品名称"
        e.DataRow("商品代码") = GetPy(e.NewValue, True)
       
End Select

 这个意思？

Select Case e.DataCol.Name
    Case "项目分类"
        e.DataRow("分类码") = GetPy(e.NewValue, True)
       
    Case "商品类别"
        e.DataRow("类别码") = GetPy(e.NewValue, True)
       
    Case "商品名称", "规格码"
        e.DataRow("商品代码") = GetPy(e.DataRow("商品名称"), True) & e.DataRow("规格码")
       
End Select