主题：老师请教有关编码

If e.DataCol.Name = "产品信息_产品名称" OrElse e.DataCol.name = "产品信息_产品批号" OrElse e.DataCol.Name = "产品信息_规格" Then
    If e.DataRow.isnull("产品信息_产品名称") OrElse e.DataRow.isnull("产品信息_产品批号") OrElse e.DataRow.Isnull("产品信息_规格") Then
        e.DataRow("产品信息_产品编码") = Nothing
    Else
        e.DataRow("产品信息_产品编码") = e.DataRow("产品信息_产品批号") & GetPinYin(e.DataRow("产品信息_产品名称"), 1).ToUpper & "-" & e.DataRow("产品信息_规格").replace("*", "").Replace("/", "")
    End If
End If