主题：[求助]不用组合键达到输入助手的高级筛选功能

输入助手的高级筛选功能，必须通过ctrl+enter才能调用。但是我想实现输入任意字符不用通过组合键就直接出现列表的功能。

 参考这个例子

 

http://www.foxtable.com/webhelp/scr/2465.htm

 

试试这个

 

下载信息  [文件大小：320.0 KB  下载次数：51]

点击浏览该文件:拼音_下拉窗口_示例.table

在这个例子里，有两段代码 都有+= 这样的写法

a &= 1

谢谢老师秒回复，我再揣摩一下。

这个例子中还有一段代码，当中-= 和 +=有什么特殊意义？我觉得和&有点不太一样，请老师解释下。

还有这两行代码    

            ElseIf e.KeyCode = Keys.Enter

            msgbox(1)

 代码按下回车键，为什么是要弹出messagebox？可是当我按下回车键，也没有提示1啊？

谢谢老师！

 

表A_KeyDownEdit

 

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

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

        Dim lsx As WinForm.ListBox = Forms(e.Col.DropForm).Controls("ListBox1")

       

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

            If lsx.SelectedIndex > 0 Then

                lsx.SelectedIndex -= 1

            End If

            e.Cancel = True

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

            If lsx.SelectedIndex < lsx.Items.Count - 1 Then

                lsx.SelectedIndex += 1

            End If

            e.Cancel = True

        ElseIf e.KeyCode = Keys.Enter

msgbox(1)

        End If

    End If

End If

 

+= 1 或者 -= 1 是为了移动焦点选择下一行、上一行。

 

msgbox是测试代码，你可以删除。

谢谢老师！

 回复9楼，这个是下拉窗口的问题，按下回车，默认是会触发关闭窗口的。无法在事件里控制。