[求助]有点甜老师，这种输入查询怎么做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]有点甜老师，这种输入查询怎么做

共有3820人关注过本帖树形打印复制链接主题：[求助]有点甜老师，这种输入查询怎么做

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/9 10:11:00 [显示全部帖子]

1、2、用like模糊查询即可

With e.Form.Controls("院校地区:")

If .Value IsNot Nothing Then

Filter &= " and yxdq like '%" & .Value & "%'"

End If

End With

3、先安装这个 http://www.foxtable.com/download/AccessDatabaseEngine.exe

如果还是无法导入，你可以把xlsx文件分割成多个少量的xls文件，比如每个5万行，然后再导入。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/9 11:07:00 [显示全部帖子]

以下是引用tygzjsl在2018/3/9 10:48:00的发言：
主要是一个输入框输入两个或多外专业名称，难做啊，谢谢辛苦啦

多个这样写

With e.Form.Controls("院校地区:")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(",")
            str &= "yxdq like '%" & s & "%' or "
        Next
        Filter &= " and (" & str.substring(0, str.length-4) & ")"
    End If
End With

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/9 12:21:00 [显示全部帖子]

以下是引用tygzjsl在2018/3/9 11:16:00的发言：
输入的时候，有要求吗，比如，电气会计，中间用什么隔开啥的，刚才调试了，还不行，谢谢！

用英文的逗号分隔，如计算机,会计

如果要用空格分隔，就这样写代码

With e.Form.Controls("院校地区:")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= "yxdq like '%" & s & "%' or "
        Next
        Filter &= " and (" & str.substring(0, str.length-4) & ")"
    End If
End With

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/9 15:04:00 [显示全部帖子]

以下是引用tygzjsl在2018/3/9 13:44:00的发言：
你太牛啦，中午都没有休息，太感谢了！满足两个列的查询是不是更复杂，也就是一个输入框中，输入两个或多个列的内容，非常感谢！

如果两个列，建议分开两个textbox控件分别输入。代码参考7楼。

如果要在一个控件处理，适当修改条件，如

With e.Form.Controls("院校地区:")
    If .Value IsNot Nothing Then
        Dim str As String = ""
        For Each s As String In .value.split(" ")
            str &= "yxdq like '%" & s & "%' or 第十列 Like '%" & s & "%' or "
        Next
        Filter &= " and (" & str.substring(0, str.length-4) & ")"
    End If
End With