以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助多个提示编号重复  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92577)
--  作者：zswushi
--  发布时间：2016/11/7 17:00:00
--  [求助多个提示编号重复
1、 货品编号能根据 货品名称，货品规格，货品材质，货品品牌的首字母自动生成；

2、输入的货品信息可以是四列，也可是三列，一列，但每一列都不能有重复的编号;

3、克隆行时，老是会弹出多个 “编号重复，请重新添加”的提示！尤其是 复制 四列内容时，

怎样才能把 “编号重复，请重新添加”变成一个？？

这是 datacolchanged 代码 ，请指正， 谢谢！

If e.DataRow("货品名称") = "" Then
    e.DataRow("货品编号") =  Nothing
End If
Select Case e.DataCol.name
    Case "货品名称","货品规格","货品品牌","货品材质"
        Dim txt1 As String = e.DataRow("货品名称")
        Dim txt2 As String = e.DataRow("货品规格")
        Dim txt3 As String = e.DataRow("货品品牌")
        Dim txt4 As String = e.DataRow("货品材质")
        Dim bh As String
        bh = getpy( txt1 ,True) & getpy( txt2 ,True) & getpy( txt3 ,True) & getpy( txt4 ,True)
        Dim dr As DataRow = DataTables("表A").find("货品编号 = \'" & bh & "\'and [_Identify] <> \'" & e.DataRow("_Identify") & "\'")
        If dr Is Nothing Then
            e.DataRow("货品编号") =  bh
        Else
            messagebox.show("编号重复,请重新输入!")
             e.DataRow("货品编号") = Nothing
        End If
End Select
--  作者：有点蓝
--  发布时间：2016/11/7 17:14:00
--  
不要用克隆，新增行手动赋值

SystemReady = False
前面3列的赋值
SystemReady = True
最后一列的赋值
--  作者：zswushi
--  发布时间：2016/11/7 17:46:00
--  
我是想写复制新增的代码呀，因为有些货品名称，就一列，有的两列，有的可能又三、四列，我只要求 编号不能重复，若编号重复就 为空呀


若手动输入的话，是没问题的，现在就是复制新增时，会出现 多个提示，？？
--  作者：有点蓝
--  发布时间：2016/11/7 17:49:00
--  
按3楼的方式赋值，不要用复制粘贴
[此贴子已经被作者于2016/11/7 17:49:14编辑过]