主题：[求助]小但很困扰人的问题-关于退出编辑单元格

以下内容为程序代码:

1 If e.DataCol.Name = "条形码" Then
2 Dim dr As DataRow
3 dr = e.DataTable.Find(" 条形码  = '" & e.NewValue & "'")
4 If dr IsNot Nothing Then
5 MessageBox.Show("此 条形码已经存在!")
6 e.Cancel = True
7 End If
8 End If
9