以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜鸟求助,如何限制数据输入范围啊  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44844)

--  作者:zhaosen322
--  发布时间:2014/1/10 9:32:00
--  菜鸟求助,如何限制数据输入范围啊
某一列通过其他数据表输入,即下拉列表,但发现随便什么都能输入,如何只能输入数据表里的数啊
--  作者:Bin
--  发布时间:2014/1/10 9:33:00
--  
列属性-允许直接输入 设置为Flase
--  作者:zhaosen322
--  发布时间:2014/1/10 9:36:00
--  
恩,忘了说了,设置了,但是可以吧别的数复制进去,虽然不能直接输入,如何让破啊
--  作者:zhaosen322
--  发布时间:2014/1/10 9:37:00
--  
恩,忘了说了,设置了,但是可以吧别的数复制进去,虽然不能直接输入,如何让破啊
--  作者:Bin
--  发布时间:2014/1/10 9:40:00
--  
那在DataColChangINg中 使用代码再验证一次吧.

利用FIND 查找另外一个表是否存在这个数据,如果存在就放行,不存在执行 e.Cancel=true


例如 

if e.datacol.name="列1" then
   dim dr as datarow = datatables("表B").find("某列=\'" & e.datarow("列1") & "\'")
   if dr is nothing then
        e.Cancel=true
   end if
end if
新手建议先看一下我们的帮助
打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助



--  作者:jinxilin
--  发布时间:2014/8/6 21:22:00
--  
亲的这个代码没有效果啊,是怎么回事啊?
--  作者:jinxilin
--  发布时间:2014/8/6 21:22:00
--  
以下是引用Bin在2014-1-10 9:40:00的发言:
那在DataColChangINg中 使用代码再验证一次吧.

利用FIND 查找另外一个表是否存在这个数据,如果存在就放行,不存在执行 e.Cancel=true


例如 

if e.datacol.name="列1" then
   dim dr as datarow = datatables("表B").find("某列=\'" & e.datarow("列1") & "\'")
   if dr is nothing then
        e.Cancel=true
   end if
end if
新手建议先看一下我们的帮助
打开软件按F1或者点击左上角的小问号,可以打开非常详细的图文帮助



我试了,输入任何数据都不成功啊。

[此贴子已经被作者于2014-8-6 21:22:53编辑过]

--  作者:有点甜
--  发布时间:2014/8/6 21:27:00
--  
 回复7楼,例子发上来,我帮你改。
--  作者:jinxilin
--  发布时间:2014/8/6 21:42:00
--  
表A的第一列,来自表B的来源列,
按照版主的代码,写入后没有效果,即 修改原有数据可以变成任何数据,另新增时不允许输入数据。

请版主解答。
[此贴子已经被作者于2014-8-6 21:43:06编辑过]

--  作者:jinxilin
--  发布时间:2014/8/6 21:45:00
--  
怎么上传不了附件?