返回按钮的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 返回按钮的代码

共有2241人关注过本帖树形打印复制链接主题：返回按钮的代码

wangyanan

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

加好友

发短信

等级：婴狐帖子：28 积分：251 威望：0 精华：0 注册：2018/10/19 21:33:00

返回按钮的代码 发帖心情

Post By：2019/4/24 10:26:00 [只看该作者]

此主题相关图片如下：2.png

查询窗口查询后的，返回按钮的代码如何写（即返回到原绑定表的所有数据，进行再次查询）

有点甜

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

加好友

发短信

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

Post By：2019/4/24 12:22:00 [只看该作者]

你的查询按钮贴出来看看。

wangyanan

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

加好友

发短信

等级：婴狐帖子：28 积分：251 威望：0 精华：0 注册：2018/10/19 21:33:00

Post By：2019/4/24 13:46:00 [只看该作者]

Dim drp As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim tbl As Table = Tables("人员录入")

If drp.Text = "" Then '如果内容为空

tbl.Filter = "" '显示所有客户

Else '否则根据输入内容进行模糊筛选

Dim txt As String = "'%" & drp.Text & "%'"

tbl.Filter = "姓名 Like " & txt

End If

有点甜

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

加好友

发短信

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

Post By：2019/4/24 15:08:00 [只看该作者]

返回按钮

Dim tbl As Table = Tables("人员录入")

tbl.Filter = "" '显示所有客户

wangyanan

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

加好友

发短信

等级：婴狐帖子：28 积分：251 威望：0 精华：0 注册：2018/10/19 21:33:00

Post By：2019/4/24 15:33:00 [只看该作者]

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

此主题相关图片如下：2.png

谢谢，返回按钮很好，实现了。突然发现查询按钮有问题：就是鼠标点中某一行再去搜索框里输名字的话（如图1），确实会搜到对应人员（如图2），但是之前鼠标点中的那一行对应的信息也出来了，并且名字也改成之前搜索框输入的名字了。再点击返回按钮，表中数据就成图3那样了（之前鼠标点中的那一行人员名字跟着变了）。我只想查询表中数据，不改动表中数据。
图片点击可在新窗口打开查看

此主题相关图片如下：1.png