主题：[求助]显示

此主题相关图片如下：商品名称消失.png

If e.DataCol.Name = "商品编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("项目分类") = Nothing
        e.DataRow("分类码") = Nothing
        e.DataRow("商品类别") = Nothing
        e.DataRow("类别码") = Nothing
        e.DataRow("商品名称") = Nothing
        e.DataRow("商品代码") = Nothing
        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("类别码")
            e.DataRow("商品名称") = dr("商品名称")
            e.DataRow("商品代码") = dr("商品代码")
            e.DataRow("规格码") = dr("规格码")
            e.DataRow("型号") = dr("型号")
            e.DataRow("规格") = dr("规格")
            e.DataRow("单价") = dr("入库单价")
        End If
    End If
End If 

不知什么原因商品名称重启软件为消失

哦