我是一个初学者,现在遇到了这种问题,找不出原因!请专家给解答一下!
.NET Framework 版本:2.0.50727.4984
Foxtable 版本:2018.9.9.1
错误所在事件:表,商品主表, DataColChanged
详细错误信息:
调用的目标发生了异常。
未将对象引用设置到对象的实例。
代码如下:
Dim dc As DataCol
Dim dr As DataRow
Select Case e.DataCol.name '判断发生数据更改的列列名是不是我们要的列名
Case "商品简名" '如果列名是"商品简名"则执行下面的语句
If e.NewValue Is Nothing Then '如果新录入的数据为空
e.DataRow("商品全名") = Nothing '则对应行的商品拼音码录入空值
Else '如果有录入,则执行下面的代码
If dr.IsNull("自定义分类") Then
If dr.IsNull("品牌") Then
e.DataRow("商品全名") = dr("商品简名")
Else
e.DataRow("商品全名") = (dr("品牌") & dr("商品简名"))
End If
Else
If dr.IsNull("品牌") Then
e.DataRow("商品全名") = (dr("自定义分类") & dr("商品简名"))
Else
e.DataRow("商品全名") = (dr("品牌") & dr("自定义分类") & dr("商品简名")) '则如果品牌,商品?自定义分类全部有数据
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
End Select