- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 限制录入错误的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19431)
-- 发布时间：2012/5/9 16:54:00
-- 限制录入错误的问题
此主题相关图片如下：11.jpg
此主题相关图片如下：22.jpg
我要是在录入姓名的时候 我员工姓名表里没有这个人，按Tab不往下走并提示录入错误请仔细检查，文本框清空
用什么代码来实现？
-- 发布时间：2012/5/9 17:09:00
--
求助
-- 发布时间：2012/5/9 17:44:00
--
求助
-- 发布时间：2012/5/9 18:35:00
--
求助
-- 发布时间：2012/5/9 23:40:00
--
直接用列表项目，限制不能手动输入，这样不是也可以吗？
-- 发布时间：2012/5/9 23:44:00
--
如果还有所属部门，建议用目录树录入更方便！
-- 发布时间：2012/5/10 7:30:00
--
Dim dr As DataRow
dr = DataTables("员工表").Find("姓名 = \'" e.Sender.Value & "\'" \'查找员工表有无同输入的值一样的姓名
If dr Is Nothing Then \'如果没有找到
MessageBox.Show("没有找到") \'提示
e.Sender.Value = Nothing \'清空输入值
End If
试试这样
-- 发布时间：2012/5/10 8:20:00
--
以下是引用blackzhu在2012-5-10 7:30:00的发言：
输入代码提示Dim dr As DataRow
dr = DataTables("员工表").Find("姓名 = \'" e.Sender.Value & "\'" \'查找员工表有无同输入的值一样的姓名
If dr Is Nothing Then \'如果没有找到
MessageBox.Show("没有找到") \'提示
e.Sender.Value = Nothing \'清空输入值
End If
试试这样
此主题相关图片如下：33.jpg
-- 发布时间：2012/5/10 8:41:00
--
唉 ,说的很清楚了 少个) 加上去不就得了.
-- 发布时间：2012/5/10 10:08:00
--
以下是引用blackzhu在2012-5-10 8:41:00的发言：
唉 ,说的很清楚了 少个) 加上去不就得了.
唉 ,说的很清楚了 少个) 加上去不就得了.
我加了好几个地方都报错，能告诉我加哪吗？我不懂代码。