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
加好友 
发短信
Post By：2016/11/7 17:00:00 [显示全部帖子]
