Foxtable(狐表)用户栏目专家坐堂 → 下拉框的控制


  共有3839人关注过本帖树形打印复制链接

主题:下拉框的控制

帅哥哟,离线,有人找我吗?
edisontsui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
下拉框的控制  发帖心情 Post By:2015/1/19 19:44:00 [只看该作者]

我希望在输入列资料的时候,只能在下拉框中选择数据,而不允许自行添加下拉框中之外的数据,怎样做得到呢?谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/19 19:47:00 [只看该作者]

 afterload代码

 

Dim c As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")
c.AllowEditValue = False


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/19 19:48:00 [只看该作者]

或者设置属性 允许直接输入 -> False

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2015/1/19 19:52:00 [只看该作者]

谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2015/1/23 20:13:00 [只看该作者]

属性里面的“允许直接输入”设置为 False 了, 我在数据表直接编辑数据时,却可以从别处复制和粘贴下拉框里面没有的内容。怎么才能限制不许自行输入、不许复制粘贴下拉框里面没有的内容?也即是说,如何做到只能从下拉框里面选择数据?谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/24 8:59:00 [只看该作者]

在DataColChangIng事件里.利用FInd查找一下数据是否合法存在, 不是就执行 e.cancel=true 取消


 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2015/1/25 10:54:00 [只看该作者]

可否拿我的项目举个具体例子,具体怎么写?谢谢。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/25 11:10:00 [只看该作者]

If e.DataCol.Name = "第一列" Then
    If e.NewValue IsNot Nothing AndAlso Tables(e.DataTable.Name).Cols("第一列").ComboList.Contains(e.NewValue) = False Then
        e.Cancel = True
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
edisontsui
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1551 积分:10061 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2015/1/25 11:52:00 [只看该作者]

我用了这个语句之后,我从别的地方copy数据粘贴上去,会出现“运行错误,调用的目标发生了异常”,当我点击其右上角的额“X”之后,还是把数据粘贴上去了。可否做到根本就不允许粘贴上去?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/25 11:56:00 [只看该作者]

 粘贴上去不生效啊

 

If e.DataCol.Name = "第一列" Then
    If e.NewValue <> Nothing AndAlso Tables(e.DataTable.Name).Cols("第一列").ComboList.Contains(e.NewValue) = False Then
        e.Cancel = True
    End If
End If

 回到顶部
总数 11 1 2 下一页