主题：求助：数据重复问题

使用如下代码

假定有个订单表，要求产品编号列不能输入重复值，可以将这个表的DataColChanging事件代码设置为：

If e.DataCol.Name = "产品编号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("产品编号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此产品已经存在!")
        e.Cancel = True
    End If
End If

通过窗口组合输入  产品编号列是表达式    等于 代码+编号     要求产品编号不重复

结果还是允许重复

 

 

看不到图片··· 你上面的公式中哪有订单号？ 发个例子上来