主题：请指教关于录入数据如何设置有效性

DataColChanged事件代码：

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

   Case "总代码"

      If dr("总代码") <>  dr("大类代码") & dr("小类代码") & dr("名称代码")  & dr("规格代码") Then

           MessageBox.show("兄弟，错了")

      End If

End Select

谢谢兄弟！事件代码在哪里找呀！请指教！

表属性 - 事件 - DataColChanged

作为初学者，最好按顺序系统性的看两三遍帮助，如果跳跃式地看帮助，会越看越糊涂。

谢谢兄弟，真的可以了。万分感谢了！！！

不过，还有个毛病，在出错后，提醒了“兄弟，错了”之后，直接进入下一行了，最好不退出编辑，直到正确为止，是不是在endif之前还要加一句？？？？

改代码位置，设置在ValidateEdit事件：

Dim dr As Row = e.Row

Select Case e.Col.Name

    Case "总代码"

        If e.Text <> dr("大类代码") & dr("小类代码") & dr("名称代码") & dr("规格代码") Then

            MessageBox.show("兄弟，错了")

            e.Cancel = True

        End If

End Select

Thank you so much!