- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]输入重复型号给予提示代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55964)
-- 发布时间：2014/8/27 7:55:00
-- [求助]输入重复型号给予提示代码
我表中有一型号列，我希望在输入时如果有重复型号时即给予提示，如需继续录入点击是，不录入点击否，请老师们帮忙写个代码，谢谢！
-- 发布时间：2014/8/27 8:33:00
--
看实例四 http://www.foxtable.com/help/topics/0624.htm
-- 发布时间：2014/8/27 8:59:00
--
基础太差，不能变通，帮助中是不能输入重复值的代码，但我想可以输入重复值，只是如果有重复的话可以核实是否需要继续输入，恳请老写一代码，谢谢！！！
-- 发布时间：2014/8/27 9:00:00
--
利用messagebox 自己动手试试,不去学,不去试,永远都不会哦
-- 发布时间：2014/8/27 12:28:00
--
老师：我试了一下，继续录入是可以完成，但是不录入否不能完成，麻烦老师帮忙修改一下，谢谢！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:是否录入重复型号.table |
-- 发布时间：2014/8/27 14:06:00
--
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
-- 发布时间：2014/8/27 14:49:00
--
谢谢两位老师！！！