主题：调用的目标发生了异常。 未将对象引用设置到对象的实例。

我是不太懂，主要根据教学视频，边学边做！就这段代码，我想实现，通过“品牌”、“自定义分类”、“商品简名”，自动组合生成“商品全名”，如果“商品简名”为空值，则不填入，如果商品简名有，就判断“品牌”、“自定义分类”是否为空，为空则由其他值和“商品简名”一起组成“商品全名”。

谢谢，试了。可以了！就是没有实例化dr是吧！

这样不行啊！只要有空值，最后结果就不显示！有方法可以把空值也可以合并进来吗？或者是空值项在合并的时候可以忽略不计吗？

就是有些时候“属性”或者“型号"是没有数据的！这样"商品全名"就无法显示了啊！有方法解决吗？

确实可以，我前面不行是case后面只加了一个“商品简名”其他没加！

 

------下面将我臃肿的代码发上来，以后研究！

Dim dr As DataRow = e.DataRow
Dim dt As DataTable
Select Case e.DataCol.name '判断发生数据更改的列列名是不是我们要的列名

Case "商品简名" '如果列名是"商品简名"则执行下面的语句
If e.NewValue Is Nothing Then '如果新录入的数据为空
e.DataRow("商品全名") = Nothing '则对应行的商品拼音码录入空值
Else '如果有录入,则执行下面的代码
If dr.IsNull("属性") Then
If dr.IsNull("型号") Then
If dr.IsNull("品牌商标") Then
e.DataRow("商品全名") = dr("商品简名")
Else
e.DataRow("商品全名") = (dr("品牌商标") & dr("商品简名"))
End If
Else
If dr.IsNull("属性") Then
If dr.IsNull("品牌商标") Then
e.DataRow("商品全名") = (dr("型号") & dr("商品简名"))
Else
e.DataRow("商品全名") = (dr("品牌商标") & dr("型号") & dr("商品简名")) '则如果品牌,商品?自定义分类全部有数据
End If
Else
If dr.IsNull("品牌商标") Then
e.DataRow("商品全名") = (dr("属性") & dr("型号") & dr("商品简名"))
Else
e.DataRow("商品全名") = (dr("品牌商标") & dr("属性") & dr("型号") & dr("商品简名")) '则如果品牌,商品?自定义分类全部有数据
End If

End If
End If
Else
If dr.IsNull("型号") Then
If dr.IsNull("品牌商标") Then
e.DataRow("商品全名") =(dr("属性") & dr("商品简名"))
Else
e.DataRow("商品全名") = (dr("品牌商标") & dr("属性") & dr("商品简名"))
End If
Else
If dr.IsNull("品牌商标") Then
e.DataRow("商品全名") = (dr("属性") & dr("型号") & dr("商品简名"))
Else
e.DataRow("商品全名") = (dr("品牌商标") & dr("属性") & dr("型号") & dr("商品简名")) '则如果品牌,商品?自定义分类全部有数据
End If
End If

End If
End If

Case "商品全名" '如果列名是"商品全名"则执行下面的语句
If e.NewValue Is Nothing Then '如果新录入的数据为空
e.DataRow("商品拼音码") = Nothing '则对应行的商品拼音码录入空值
Else '如果有录入,则执行下面的代码
e.DataRow("商品拼音码") = getpinyin(e.NewValue ,1) '将信录入的内容以拼音码的的形式录入商品拼音码
End If

Case "品牌商标" , "属性" ,"型号"
dt = dr.DataTable
dt.DataCols("商品简名").RaiseDataColChanged()

End Select

 

--------以下是老师指点以后我修改过的代码，测试时可行的！

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name '判断发生数据更改的列列名是不是我们要的列名
    Case "商品简名", "品牌商标", "属性", "型号"       
        e.DataRow("商品全名") = dr("品牌商标") & dr("属性") & dr("型号") & dr("商品简名")
'则如果品牌,商品?自定义分类全部有数据              
    Case "商品全名" '如果列名是"商品全名"则执行下面的语句
        If e.NewValue = Nothing Then '如果新录入的数据为空
            e.DataRow("商品拼音码") = Nothing '则对应行的商品拼音码录入空值
        Else '如果有录入,则执行下面的代码
            e.DataRow("商品拼音码") = getpinyin(e.NewValue ,1) '将信录入的内容以拼音码的的形式录入商品拼音码
        End If
End Select