以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]自定义录入界面之三,四限定问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64797)

--  作者:swagger
--  发布时间:2015/3/2 11:00:00
--  [求助]自定义录入界面之三,四限定问题
在这两个例子里怎样限制只能输入下拉框里面的内容,不能输入以外的内容?
--  作者:Bin
--  发布时间:2015/3/2 11:00:00
--  
把属性里的允许直接输入设置为Flase
--  作者:swagger
--  发布时间:2015/3/2 11:00:00
--  
就是如果输入以外的内容,表格的内容是不会改变的
--  作者:Bin
--  发布时间:2015/3/2 11:01:00
--  
看2楼
--  作者:swagger
--  发布时间:2015/3/2 11:57:00
--  
以下是引用Bin在2015/3/2 11:00:00的发言:
把属性里的允许直接输入设置为Flase

不行啊,设置后下拉框就不显示了,而且对于窗口形式的也没效


--  作者:飞飞
--  发布时间:2015/3/2 11:59:00
--  
以下是引用Bin在2015/3/2 11:01:00的发言:
看2楼


--  作者:Bin
--  发布时间:2015/3/2 11:59:00
--  
这个设置和下拉框没有关系.可能你其他地方没弄对,搞不定就上例子.
--  作者:swagger
--  发布时间:2015/3/2 12:01:00
--  

重启项目就可以显示,但是不能输入了啊。我意思是可以输入东西,但是只能选择框里面的东西,如果不在下拉框里面的东西就被cancel掉


--  作者:Bin
--  发布时间:2015/3/2 12:03:00
--  
在DataColChangINg 事件

利用FIND到表查找一下,找到不到数据就执行 e.cancel=true


例如
Dim dr As DataRow
dr = 
DataTables("订单").Find("数量 > 1000","日期 Desc")
If 
dr Is Nothing Then \'如果找到的话
    e.cancel=true

End If

--  作者:swagger
--  发布时间:2015/3/2 12:18:00
--  
以下是引用Bin在2015/3/2 12:03:00的发言:
在DataColChangINg 事件

利用FIND到表查找一下,找到不到数据就执行 e.cancel=true


例如
Dim dr As DataRow
dr = 
DataTables("订单").Find("数量 > 1000","日期 Desc")
If 
dr Is Nothing Then \'如果找到的话
    e.cancel=true

End If

这个只能数字?用getvalue弄好了,http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=63898&page=0&move=next#editform

 

之前是table名搞错了,现在好了