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

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

 

要求：

1.类别名称不能重复

2.新增 ，删除 ，上移 ，下移 等操作后 原有类别级码不能改变。

3.最好新增后，类别级码马上生成，不要点保存后才一起生成

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:产品大类设定.rar

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、完全没有必要实时生成，这样要控制的要素太多，编辑效率也不高。

保持原来的路径不变的基础上重写：

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.table

全部删除后 重新添加数据 fullname 出现重复数值了

 

第一 第二 fullname 都为1

不知道错在哪了

 你的第二点和第三点，完全是不必要的。

在实际工作中有非常必要，譬如在产品销售单中，原有销售单中已经存在产品数据的产品大类，最好不要变动

3楼  狐爸写的 基本符合要求了 只是重新开始 出现fullname 重复码了，第一个 第二个fullname 为1

 

你的这个改动，级码没有一点关系，你要的只是最后的名称，你只要控制不能改变名称即可。