分页加载模糊搜索问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分页加载模糊搜索问题

共有2366人关注过本帖树形打印复制链接主题：分页加载模糊搜索问题

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

分页加载模糊搜索问题 发帖心情

Post By：2018/4/7 11:52:00 [显示全部帖子]

With e.Form

If e.sender.text <> "输入产品名称或者产品id查询" Then

Dim dst As Table = Tables("产品_table1")

Dim txb1 As WinForm.TextBox = .Controls("TextBox3")

dst.Filter = "[产品名称] Like '*" & txb1.text & "*' or [产品id] Like '*" & txb1.text & "*'"

End If

End With

以上代码可以在全部数据加载在同一页列出筛选内容，但是在分页加载就只能显示当页的筛选内容，怎么做到可以列出所有的筛选内容呢

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2018/4/7 14:26:00 [显示全部帖子]

就是刚才试过了，不行。这段代码放在textchanged 不知道有没有问题。我研究下看看什么原因，等下再问

[此贴子已经被作者于2018/4/7 14:26:56编辑过]

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

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

可以了，可能是忘记加loadpage了，不知道什么原因，反正现在是可以了

With DataTables("产品")

With e.Form

If e.sender.text <> "输入产品名称或者产品id查询" Then

Dim dst As Table = Tables("产品_table1")

Dim txb1 As WinForm.TextBox = .Controls("TextBox3")

dst.datatable.loadFilter = "[产品名称] Like '%" & txb1.text & "%' or [产品id] Like '%" & txb1.text & "%'"

dst.datatable.load

End If

End With

If .LoadPage <> 0 Then

.LoadTop = 20

.LoadPage = 0

.Load()

DataTables("产品").LoadChildren("产品明细", "产品id", "产品id)

End If

End With

下一主题 >> << 上一主题

主题：分页加载模糊搜索问题