[求助]在下拉窗口中进行查找后下拉窗口就直接退出了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'MessageBox.Show("触发查找事件")
Dim 查找内容 As String =e.sender.value
Dim tbl As Table = Tables(e.form.name & "_Tab_1")
Dim 查找列值 As String=e.Form.Controls("ccb_查找列_1").value
Dim 查找列 As new List(of String)
Dim 字符列 As new List(of String)
Dim filter As String
Dim i As Integer
If 查找内容 = "" Then
    tbl.Filter = ""
Else
    查找内容 = "'%" & 查找内容 & "%'"
    For Each c As Col In tbl.Cols
        If c.IsString Then
            字符列.add(c.name)
        End If
    Next
    If 查找列值="" Then
        For Each c As Col In tbl.Cols
            If c.IsString Then
                查找列.add(c.name)
            End If
        Next
    Else
        查找列.addrange(查找列值.split("|"))
        For Each str As String In 查找列
            If 字符列.contains(str)=False Then
                查找列.Remove(str)
            End If
        Next
    End If
    For Each str As String In 查找列
        If filter Is Nothing Then
            filter=str & " Like " & 查找内容
        Else
            filter=filter & " or " & str & " Like " & 查找内容
        End If
    Next
    'MessageBox.show("filter=" & filter)
    tbl.Filter =filter
    'e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框
End If

主题：[求助]在下拉窗口中进行查找后下拉窗口就直接退出了