Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 2段 合并下实现 点击一个按钮，在 方框1 录入文字


  共有3224人关注过本帖树形打印复制链接

主题：[求助] 2段 合并下实现 点击一个按钮，在 方框1 录入文字
帅哥哟，离线，有人找我吗？
xianxin2010
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：282 积分：2421 威望：0 精华：0 注册：2013/6/6 13:14:00 		[求助] 2段 合并下实现 点击一个按钮，在 方框1 录入文字  发帖心情 Post By：2023/12/4 14:59:00 [只看该作者]

老师好

这是 一个窗口 按钮 的 Click 事件

原有功能都已经实现了 点击按钮搜索 A表

现在增加的是实现 同样在 方框1 录入文字，点击按钮， 能同时搜索 A表 B表 的 产品列

就是把下方2段 合并下



1段
MainTable = Tables("A表")

Dim txt As String = e.Form.Controls("方框1").Text
Dim tbl As Table = Tables("A表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt  = "'%" & txt & "%'"
    tbl.Filter = "Convert(产品, 'System.String') Like " & txt & " "
End If

Forms("A表").Show



2段
MainTable = Tables("B表")

Dim txt As String = e.Form.Controls("方框1").Text
Dim tbl As Table = Tables("B表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt  = "'%" & txt & "%'"
    tbl.Filter = "Convert(产品, 'System.String') Like " & txt & " "
End If

Forms("B表").Show
[此贴子已经被作者于2023/12/4 15:00:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112337 积分：571929 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 15:01:00 [只看该作者]

把代码放到一起就行了呀

 回到顶部
帅哥哟，离线，有人找我吗？
xianxin2010
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：282 积分：2421 威望：0 精华：0 注册：2013/6/6 13:14:00 		  发帖心情 Post By：2023/12/4 15:06:00 [只看该作者]

试过的，不行有提示的

图片点击可在新窗口打开查看此主题相关图片如下：a.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：b.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112337 积分：571929 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 15:09:00 [只看该作者]

变量名称重复了，第二个变量换个名称呗

比如
Dim txt2 As String = e.Form.Controls("方框1").Text
 回到顶部
帅哥哟，离线，有人找我吗？
xianxin2010
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：282 积分：2421 威望：0 精华：0 注册：2013/6/6 13:14:00 		  发帖心情 Post By：2023/12/4 15:18:00 [只看该作者]

图片点击可在新窗口打开查看 图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112337 积分：571929 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 15:23:00 [只看该作者]

如果都是同一个查询条件，可以直接合并代码

Dim txt As String = e.Form.Controls("方框1").Text
If txt = "" Then
    Tables("A表").Filter = ""
    Tables("B表").Filter = ""
Else
    txt  = "'%" & txt & "%'"
    Tables("A表").Filter = "Convert(产品, 'System.String') Like " & txt 
    Tables("B表").Filter = "Convert(产品, 'System.String') Like " & txt 
End If

Forms("A表").Show
Forms("B表").Show
[此贴子已经被作者于2023/12/4 15:24:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112337 积分：571929 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 15:25:00 [只看该作者]

另外，产品这种列就应该设置为字符型列，不应该设置为数值列。这样没有必要做转换，效率高很多

Tables("A表").Filter = "产品 Like " & txt 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05762 秒, 4 次数据查询