主题：如何保证产品不重复？

我的一个产品由三个 项目组成分别是“产品名称”“规格”“单位” 只要有一个项目不相同，就视为不相同的产品，当三个项目都相同的时候就视为相同的产品，相同的产品则不允许再录入。如何实现呢？

 

如图 第5行产品 和第1行产品相同，则不允许输入，并弹出提示框“已经存在相同的产品”如何实现呢？

此主题相关图片如下：129.jpg

 

项目如下：

 

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

点击浏览该文件:琼富塑料管理系统n_0912.zip

If ",产品名称,规格,单位,".indexof("," & e.DataCol.Name & ",")>-1 Then
    Dim dr,dr1 As DataRow 

这个是 要放到哪里去呢？

我放到 表属性 validateEdit  不行呀

 

此主题相关图片如下：130.jpg

DataColChanged事件:

 

Select Case  e.DataCol.Name
    Case "第一列","第二列","第三列"
    Dim dr As DataRow
    dr = e.DataTable.Find("第一列 = '" & e.DataRow("第一列") & "' And 第二列 = '" & e.DataRow("第二列") & "' And 第三列 = '" & e.DataRow("第三列") & "'")
    If dr IsNot Nothing Then
        e.DataRow(e.DataCol.Name) = Nothing
    End If
End Select

不行的。这样你永远都不能完整录入第一行。

因为只要你录入一行，就满足 If dr IsNot Nothing Then

 

应该判断是否存在两行相同的数据

如何实现呢？

 

Select Case  e.DataCol.Name
    Case "第一列","第二列","第三列"
    Dim drs As List(of DataRow)
    drs = e.DataTable.Select("第一列 = '" & e.DataRow("第一列") & "' And 第二列 = '" & e.DataRow("第二列") & "' And 第三列 = '" & e.DataRow("第三列") & "'")
    If drs.Count > 1 Then
        e.DataRow(e.DataCol.Name) = Nothing
    End If
End Select

Dim Total As Integer
Dim Amount As Double
With DataTables("产品表")
    Total = .Compute("count(产品名称)","产品名称 = '" & CurrentTable.current("产品名称") & "' ")
End With
Output.Show("相同产品的个数:" & Total)