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


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

主题：[求助] 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
xianxin2010
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

试过的，不行有提示的

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

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


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

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询