主题：[讨论]关于下拉窗口直接输入的问题

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

Tables("客户").Cols("县市").AllowDirectType=False
Tables("客户").Cols("县市").DropForm = "窗口1"
Forms("窗口2").Open()

  哦，那我要禁止下拉窗口直接输入应该怎么做？

你可以设置dropdwnbox的KeyPress事件：

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

这样就不能直接输入了。

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

    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