主题：[求助]输入重复型号给予提示代码

我表中有一型号列，我希望在输入时如果有重复型号时即给予提示，如需继续录入点击是，不录入点击否，请老师们帮忙写个代码，谢谢！

 

看实例四 http://www.foxtable.com/help/topics/0624.htm

基础太差，不能变通，帮助中是不能输入重复值的代码，但我想可以输入重复值，只是如果有重复的话可以核实是否需要继续输入，恳请老写一代码，谢谢！！！

利用messagebox  自己动手试试,不去学,不去试,永远都不会哦

老师：我试了一下，继续录入是可以完成，但是不录入否不能完成，麻烦老师帮忙修改一下，谢谢！！！

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

点击浏览该文件:是否录入重复型号.table

If e.DataCol.Name = "型号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("型号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        Dim result As  DialogResult = MessageBox.Show("此型号已录入,是否继续录入", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If result = DialogResult.No Then
            e.Cancel = True
        End If
    End If
End If

谢谢两位老师！！！