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


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

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


加好友 发短信
等级：超级版主 帖子：110807 积分：563973 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 15:01:00 [显示全部帖子]

把代码放到一起就行了呀

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110807 积分：563973 威望：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110807 积分：563973 威望：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编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110807 积分：563973 威望：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.03516 秒, 5 次数据查询