通过表引用下拉窗口，如何实现在表中按下 enter 或方向向右的箭头，才弹出下拉窗口？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

自定义录入界面之三

到表格keydown事件写代码控制即可

原来打开下拉窗口的代码该怎么改啊，多谢

If e.Col.Name = "客户ID" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown = False '且下拉窗口没有打开
        e.Col.OpenDropDown() '打开下拉窗口
    End If
End If

If e.Control = True AndAlso e.Table.Current IsNot Nothing Then
    Dim r as Row = e.Table.Current
    Select Case e.KeyCode
        Case Keys.right

……

Case Keys.Enter

……

图片点击可在新窗口打开查看

试了一下，没有办法使用enter控制，可以使用方向键
去掉KeyPressEdit事件，KeyDownEdit事件改为

If e.Col.Name = "客户ID" Then '如果编辑的是客户 ID列

If e.Col.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("窗口1_Table1")

If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键

tbl.Position = tbl.Position - 1 '向上移动一行

e.Cancel = True

ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键

tbl.Position = tbl.Position + 1 '向下移动一行

e.Cancel = True

End If

ElseIf e.KeyCode = keys.right

e.Cancel = True

e.Col.OpenDropDown

End If

下拉窗口打开时进行筛选该写到哪里啊？

按了右方向键，调出下拉窗口，筛选失效了。

原来在Changeedit中的代码

If e.Col.Name = "客户" Then '如果编辑的是客户ID列

If e.Col.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("下拉窗口_Table1")

If e.Text = "" Then '如果内容为空

tbl.Filter = "" '显示所有客户

Else '否则根据输入内容进行模糊筛选

Dim txt As String ="'" & e.Text & "%'"

tbl.Filter = "ccode_name Like " & txt

End If

将代码加到keydownedit事件中也没有起作用：

If e.Col.Name = "第一列" Then '如果编辑的是客户 ID列

If e.Col.DroppedDown Then '如果下拉窗口已经打开

Dim tbl As Table = Tables("财务费项下拉窗口_Table1")

If e.KeyCode = Keys.Up Then '如果按下的是上箭头按键

tbl.Position = tbl.Position - 1 '向上移动一行

e.Cancel = True

ElseIf e.KeyCode = Keys.Down Then '如果按下的是下箭头按键

tbl.Position = tbl.Position + 1 '向下移动一行

e.Cancel = True

End If

ElseIf e.KeyCode = keys.right

e.Cancel = True

e.Col.OpenDropDown

'Dim tbl As Table = Tables("下拉窗口_Table1")

'If e.Text= "" Then '如果内容为空

'tbl.Filter = "" '显示所有客户

'Else '否则根据输入内容进行模糊筛选

'Dim txt As String ="'" & e.Text & "%'"

'tbl.Filter = "ccode_name Like " & txt

'End If

End If

如果要使用方向键来打开下拉，就没有办法做筛选了。要不就改为【自定义录入界面之二】的用法，在下拉窗口里添加筛选文本框

用dropdownbox控件，能否实现控件输入完毕后按下回车或方向右键，实现打开根据 dropdownbox内容筛选后的下拉窗口啊？多谢

[此贴子已经被作者于2020/4/29 8:54:32编辑过]

dropdownbox，keydown事件

If e.KeyCode = keys.enter Then

If e.Sender.DroppedDown = False Then

e.Sender.OpenDropDown

End If

主题：通过表引用下拉窗口，如何实现在表中按下 enter 或 方向向右的箭头，才弹出下拉窗口？

主题：通过表引用下拉窗口，如何实现在表中按下 enter 或方向向右的箭头，才弹出下拉窗口？