[求助]窗口输入的值必须为某列的内容，代码怎么写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口输入的值必须为某列的内容，代码怎么写

共有1833人关注过本帖树形打印复制链接主题：[求助]窗口输入的值必须为某列的内容，代码怎么写

烟斗木木

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：44 积分：425 威望：0 精华：0 注册：2016/9/28 8:36:00

[求助]窗口输入的值必须为某列的内容，代码怎么写 发帖心情

Post By：2018/5/2 16:58:00 [只看该作者]

在textbox控件输入内容后，检测是不是车号表。车号列的内容，如果不是，提醒错误

Validating事件中怎么写

Dim HasError As Boolean

Dim r As Row = Tables("车号表").Current

Dim z As （获取车号列的内容，这行不会写）

If r.("分组").value <> z Then

e.Form.Controls("TextBox2").Error = "车号不存在!"

HasError = True

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/2 17:10:00 [只看该作者]

你要查找比较？

Dim dr As DataRow = DataTables("车号表").find("车号列 = '" & e.sender.text & "'")
If dr Is Nothing Then
e.Form.Controls("TextBox2").Error = "车号不存在!"

e.Cancel = True
End If

[此贴子已经被作者于2018/5/2 17:36:11编辑过]

烟斗木木

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：44 积分：425 威望：0 精华：0 注册：2016/9/28 8:36:00

Post By：2018/5/2 17:28:00 [只看该作者]

可能我没说清楚，请老师不要看我原来的代码了。

我是想这样：textbox里输入的内容，限制为车号列中有的值，不能输入其他值，应该怎么做

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/5/2 17:36:00 [只看该作者]

就是2楼代码。

主题：[求助]窗口输入的值必须为某列的内容，代码怎么写