以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口输入的值必须为某列的内容，代码怎么写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118424)
--  作者：烟斗木木
--  发布时间：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
--  作者：有点甜
--  发布时间：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编辑过]
--  作者：烟斗木木
--  发布时间：2018/5/2 17:28:00
--  
可能我没说清楚，请老师不要看我原来的代码了。
我是想这样：textbox里输入的内容，限制为车号列中有的值，不能输入其他值，应该怎么做
--  作者：有点甜
--  发布时间：2018/5/2 17:36:00
--  
就是2楼代码。