以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有如下一个小项目 本人做了一部分 余下的解决不了 麻烦狐狸帮助一下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56195)

--  作者:jswjyjf
--  发布时间:2014/8/31 21:24:00
--  有如下一个小项目 本人做了一部分 余下的解决不了 麻烦狐狸帮助一下

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

 

要求:

1.类别名称不能重复

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

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

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:产品大类设定.rar


--  作者:有点甜
--  发布时间:2014/8/31 22:06:00
--  

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


--  作者:狐狸爸爸
--  发布时间:2014/9/1 7:47:00
--  

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

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


--  作者:jswjyjf
--  发布时间:2014/9/1 9:13:00
--  

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

 


--  作者:jswjyjf
--  发布时间:2014/9/1 9:15:00
--  

第一 第二 fullname 都为1


--  作者:jswjyjf
--  发布时间:2014/9/1 9:19:00
--  
不知道错在哪了
--  作者:有点甜
--  发布时间:2014/9/1 9:21:00
--  

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


--  作者:jswjyjf
--  发布时间:2014/9/1 9:26:00
--  
在实际工作中有非常必要,譬如在产品销售单中,原有销售单中已经存在产品数据的产品大类,最好不要变动
--  作者:jswjyjf
--  发布时间:2014/9/1 9:32:00
--  

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


--  作者:有点甜
--  发布时间:2014/9/1 9:33:00
--  
以下是引用jswjyjf在2014-9-1 9:26:00的发言:
在实际工作中有非常必要,譬如在产品销售单中,原有销售单中已经存在产品数据的产品大类,最好不要变动

 

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