可否将数据表作为列表引申实现这样的功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'表事件-编辑-KeyDownEdit
If e.Col.Name = "第二列" Then
    If e.keycode = keys.f3
        Forms("窗口1").open()
    End If
End If
If Forms("窗口1").Opened Then
    Dim txt As String = e.Text
    Dim abc As String = e.Row("第一列")
    Dim tbl As Table = Tables("窗口1_Table1")
    Dim flt As String
    If txt > "" Then
        If txt.contains("*")
            txt = "'*" & txt.replace("*","[*]") & "*'"    '
        Else
            txt = "'*" & txt & "*'"
        End If
        flt = "县市 Like " & txt
    End If
    If abc > "" Then
        If abc.contains("*")
            abc = "'*" & abc.replace("*","[*]") & "*'"    '
        Else
            abc = "'*" & abc & "*'"
        End If
        If flt > "" Then
            flt = flt & " And "
        End If
        flt = flt & "省市 Like " & abc
    End If
    tbl.Filter = flt
End If

主题：可否将数据表作为列表引申实现这样的功能