主题：[求助]如何实现：在单元格中录入数据时自动弹出下拉窗口，并根据所录入的内容自动模糊查询

'表事件-编辑-KeyDownEdit
If Forms("窗口1").Opened Then
    If e.Col.Name = "第一列"  Then
        Dim t As Table = Tables("窗口1_Table1")
        If e.keycode = keys.Down
            t.position = t.Position +1
            e.Cancel = True
        ElseIf e.keycode = keys.up
            t.position = t.Position -1
            e.Cancel = True
        ElseIf e.Keycode = keys.Enter 'And t.Current IsNot Nothing
            e.Text = t.Current("省市")
            e.Row("第二列") = t.Current("县市")
            e.Row("第三列") = t.Current("区号")
            e.Row("第四列") = t.Current("邮编")
            Forms("窗口1").close()
        End If
    End If
End If

此主题相关图片如下：3.gif

根据上面设置,选择行时只能用箭头键操作,当使用鼠标左键选择"窗口1_Table1"中的行按Enter时出错,请问如何设置?

值得学习与收藏，谢谢楼主

上面的所有方法只适合在表中运行，如建立一个窗体，在窗体中加入一个如上的表，在运行的时候，在自行设计的窗体里面输入数据的时候就不管用了， 这是为什么呢？

16楼的做法是很对，但是只能针对主窗口模式，如果换成模式之类的窗口就不管用了，要是换成模式之数的窗口如何更该。

清除StartEdit事件的代码，ChangeEdit重新设置：

'表事件-编辑-ChangeEdit
If e.Col.Name = "第一列" Then
If Forms("窗口1").Opened = False Then
        Forms("窗口1").Open()
Tables("表A"). StartEditing ()
End If
End If

If Forms("窗口1").Opened Then
    Dim txt As String = e.Text
    Dim tbl As Table = Tables("窗口1_Table1")
    If txt = "" Then
        tbl.Filter = ""
    Else
        If txt.contains("*")
           
            txt =  "'*" & txt.replace("*","[*]") & "*'"    '
           
        Else
            txt = "'*" & txt & "*'"
        End If
        tbl.Filter = "省市 Like " & txt & " Or 县市 Like " & txt & ""
       
    End If
End If

换了代码，用模式窗口打开还是老样子，问题没有解决