主题：关于KeyDownEdit事件代码

我的代码发下：

If e.Col.name = "产品名称" Then
    If e.KeyCode = Keys.Enter Then
        Dim s As String  = DataTables("物料信息表").SQLGetComboListString("产品名称","产品名称 like '%" & e.text & "%'")
        e.Col.ComboList = s
        If e.Col.DroppedDown = False '且下来列表没有打开
            e.Col.OpenDropDown() '打开下拉列表
        End If
    End If
End If

 

s的值是对的，但为什么下拉列表打不开，要怎么样才能让下拉列表打开呢？

不要使用回车键, 换一个键 或者使用组合键 例如CTRL+回车

试试这样

 

If e.Col.name = "产品名称" Then
    If e.KeyCode = Keys.Enter Then

        e.Cancel = True
        Dim s As String  = DataTables("物料信息表").SQLGetComboListString("产品名称","产品名称 like '%" & e.text & "%'")
        e.Col.ComboList = s
        If e.Col.DroppedDown = False '且下来列表没有打开
            e.Col.OpenDropDown() '打开下拉列表
        End If
    End If
End If

再试试这个

 

If e.Col.name = "产品名称" Then
    If e.KeyCode = Keys.Enter Then

        e.Cancel = True
        Dim s As String  = DataTables("物料信息表").SQLGetComboListString("产品名称","产品名称 like '%" & e.text & "%'")
        e.Col.ComboList = s

        Sendkeys.Send("{F4}")
    End If
End If

 

PrepareEdit

If e.Col.name = "产品名称" AndAlso e.IsFocusCell Then     
     e.Col.ComboList = DataTables("物料信息表").SQLGetComboListString("产品名称","产品名称 like '%" & e.text & "%'")           
End If

 

进入单元格后，连按两次空格键，就打开了下拉框。