以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [讨论]关于下拉窗口直接输入的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33998)
--  作者：傻马难骑
--  发布时间：2013/5/28 15:43:00
--  [讨论]关于下拉窗口直接输入的问题

我在CaseStudy的下拉目录树示例的AfterOpenProject属性中增加了一行（红色的行），目的是希望不让直接输入，但实际效果双击“县市”字段单元格仍然可以直接输入，请问怎么回事呀？怎么才能禁止该字段直接输入？

 

Tables("客户").Cols("县市").AllowDirectType=False
Tables("客户").Cols("县市").DropForm = "窗口1"
Forms("窗口2").Open()
--  作者：狐狸爸爸
--  发布时间：2013/5/28 15:46:00
--  
这个只对列表项目有效，对于下拉窗口无效。
--  作者：傻马难骑
--  发布时间：2013/5/28 15:57:00
--  
以下是引用狐狸爸爸在2013-5-28 15:46:00的发言：
这个只对列表项目有效，对于下拉窗口无效。

 

  哦，那我要禁止下拉窗口直接输入应该怎么做？
--  作者：Bin
--  发布时间：2013/5/28 15:58:00
--  
不要赋值,就不会输入了.
--  作者：狐狸爸爸
--  发布时间：2013/5/28 16:26:00
--  

你可以设置dropdwnbox的KeyPress事件：

 

If Char.IsLetterOrDigit(e.KeyChar) Then
    e.cancel = True
End If

 

这样就不能直接输入了。
--  作者：lsy
--  发布时间：2013/5/28 16:30:00
--  

换个角度看问题，以下是我的通用录入框对于不允许直接输入的控制：

    If e.Form.Controls("TreeView录入树").AllNodes.Count < 1 Then
        MessageBox.Show("没有选择数据")
        e.Form.DropDownBox.Text = ""
    ElseIf e.Form.Controls("TreeView录入树").AllNodes.Count > = 1 Then
        Dim trv As WinForm.TreeView = e.Form.Controls("TreeView录入树")
        Dim i As Integer = 0
        For Each nd As WinForm.TreeNode In trv.AllNodes
            If nd.Level = 0 AndAlso e.Form.DropDownBox.Text = nd.Name Then
                i = i + 1
            End If
        Next
        If i = 0 Then
            MessageBox.Show("没有选择数据")
            e.Form.DropDownBox.Text = ""
        End If
    End If
--  作者：傻马难骑
--  发布时间：2013/5/28 19:06:00
--  
谢谢狐爸及各位热心朋友。