主题：用窗口增加新的产品，如何验证禁止输相同的产品？

如图所示，产品表名 chanpin。在窗口中添加新产品。

一个产品的最基本内容包含 产品名称，规格，单位。当产品名称、规格、单位和现有产品重复的时候禁止录入，并提示。（只要有一个条件不同，就可以录入，比如规格不同。）

确定按钮 click 事件

Dim HasError As Boolean
Dim r As Row = Tables("chanpin").Current
If r.IsNull("chanpinname") Then
    e.Form.Controls("TextBox2").Error = "请输入产品名称!"
If e.Form.Controls("TextBox2").Text =  "高压黑折边"  Then
 MessageBox.Show("请正确输入产品名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

    HasError = True
Else
    e.Form.Controls("TextBox2").Error =  ""
End If
If r.IsNull("guige") Then
    e.Form.Controls("TextBox3").Error = "请输入规格!"
    HasError = True
Else
    e.Form.Controls("TextBox3").Error = ""
End If

If r.IsNull("danwei") Then
    e.Form.Controls("TextBox4").Error = "请输入单位!"
    HasError = True
Else
    e.Form.Controls("TextBox4").Error = ""
End If

If r.IsNull("JM") Then
    e.Form.Controls("TextBox5").Error = "请输入产品拼音简码!"
    HasError = True
Else
    e.Form.Controls("TextBox5").Error = ""
End If

If r.IsNull("fenlei") Then
    e.Form.Controls("ComboBox1").Error = "请输单位!"
    HasError = True
Else
    e.Form.Controls("ComboBox1").Error = ""
End If

If HasError = False Then '如果没有输入错误,则保存
   r.Save()
   e.Form.Close()
End If