接输入不在列表项目中的内容问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 接输入不在列表项目中的内容问题

共有2941人关注过本帖树形打印复制链接主题：接输入不在列表项目中的内容问题

cha618

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：342 威望：0 精华：0 注册：2016/3/2 10:15:00

接输入不在列表项目中的内容问题 发帖心情

Post By：2016/4/18 16:47:00 [只看该作者]

AllowDirectType

逻辑型，是否允许用户直接输入不在列表项目中的内容。
必须在设置ComboList属性之前，设置AllowDirectType属性，否则无效。

示例

Tables("订单").Cols("客户").AllowDirectType = False
Tables("订单").Cols("客户").Combolist = "CS01|CS02|CS03|CS04"

根据字面意思，将此属性设置为否。应该可以手工输入内容，但内容必须在列表项目中，否则不接收的

但测试结果为：只要设置不FALSE了就不能输入任何内容。这样该属性就是是否允许用户直接输入了后面的描述是多余的了

实际控制要求也应为逻辑型，是否允许用户直接输入不在列表项目中的内容。因为可选项目多了，最好给用户提供一个输入助手才好

这个希望官方能解决一下（当然不允许用户直接输入就永远不会输入列表之外的内容，但操作不方便了）

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/18 16:53:00 [只看该作者]

去编写ValidateEdit事件

If e.Col.name = "第二列" andalso e.Text > "" Then
    Dim ary() As String = e.Col.ComboList.Split("|")
    If array.indexof(ary, e.text) < 0 Then
        msgbox("不能输入不存在的值")
        e.cancel = True
    End If
End If

cha618

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：342 威望：0 精华：0 注册：2016/3/2 10:15:00

Post By：2016/4/18 17:04:00 [只看该作者]

这是能实现，但为什么系统功能就不能做得到位点了，到处让用户自己打补丁呢

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/18 17:08:00 [只看该作者]

这个功能是你要改进的，当然要自己写代码，难倒每种功能系统都做好了？

cha618

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：37 积分：342 威望：0 精华：0 注册：2016/3/2 10:15:00

Post By：2016/4/18 17:21:00 [只看该作者]

以下是引用大红袍在2016/4/18 17:08:00的发言：

这个功能是你要改进的，当然要自己写代码，难倒每种功能系统都做好了？

不是这样的

AllowDirectType

逻辑型，是否允许用户直接输入不在列表项目中的内容。

这是系统自己说的呀

明显牛头不对马嘴，官方可以改改说明了

下一主题 >> << 上一主题

主题：接输入不在列表项目中的内容问题