专家坐堂-输入的值不等于Combolist里的值怎么表达呢。。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  输入的值不等于Combolist里的值怎么表达呢。。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124161)

--  作者：fubblyc
--  发布时间：2018/8/31 16:59:00
--  输入的值不等于Combolist里的值怎么表达呢。。

ValidateEdit事件：

If e.Col.name = "门店" Then \'And _usergroup = "门店"
If e.Text > "" Then \'如果已经输入内容
Dim s As String
s = e.Form.Controls("table1").Table.Cols("门店").Combolist
If     Then \'如果输入的值大于0.15 这里要怎么写，能够让填写的值不等于里面的任意一个值的时候提示呢。。。
messagebox.show("非法门店")
e.Cancel = True \'则禁止退出编辑模式
End If
End If
End If

--  作者：有点甜
--  发布时间：2018/8/31 17:34:00
--
If s.contains(e.text) = false Then

--  作者：fubblyc
--  发布时间：2018/8/31 17:40:00
--
甜老师，这个我试了，
因为s是一串字符串，A门店|B门店|C门店等
如果他填了A，而不是A门店，也不会报错

--  作者：有点甜
--  发布时间：2018/8/31 17:59:00
--

s = e.Form.Controls("table1").Table.Cols("门店").Combolist

s = "|" & s & "|"

If s.contains("|" & e.text & "|") = false Then