主题：关于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的值是对的，但为什么下拉列表打不开，要怎么样才能让下拉列表打开呢？