如何让某单元格值发生变化时事件，忽略新增行引发的错误

苍风霁月

我在表事件ColDataChanged中，写了某列值变化时触发的事件，但新增行时，会弹出“未将对象引用设置到对象的实例”错误，请问如何解决？

admin

把你的代码贴出来,估计是你的代码写的有问题.

苍风霁月

        Public Sub ColDataChanged(sender As Object,e As  sanMuSoft.CS.WinForm.ColDataEventArgs)
                Dim tbl As SmGrid=Proj.CurrentSmGrid
                Dim strColName As String=tbl.Cols(tbl.Col).Name
                If strColName="drugname" AndAlso e.NewValue<>"" Then
                        If e.OldValue<>e.NewValue Then
                                MsgBox(e.NewValue)
                        End If
                End If
End Sub

admin

上面的代码在表事件中,引用当前表和当前列的方式有问题.

                Public Sub ColDataChanged(sender As Object,e As  sanMuSoft.CS.WinForm.ColDataEventArgs)
                        '引用当前表的方式，直接使用sender转换
                        Dim tbl As SmGrid=sender
                        '获取列名称，直接根据e参数中ColData对象获得
                        Dim strColName As String=e.ColData.Name
                        If strColName="drugname" AndAlso e.NewValue<>"" Then
                                If e.OldValue<>e.NewValue Then
                                        MsgBox(e.NewValue)
                                End If
                        End If
                End Sub
复制代码