主题：有如下一个小项目 本人做了一部分 余下的解决不了 麻烦狐狸帮助一下

1、代码

Dim dr1 As DataRow
dr1 = DataTables("产品类别表").Find("类别名称 = '" & e.NewText & "'")
If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
    messagebox.show("此类别名称已经存在")
    e.Cancel = True
End If

2、如果删除等操作之后，级码不能被改变，那么就会出现短号等数据。

3、完全没有必要实时生成，这样要控制的要素太多，编辑效率也不高。