以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 2段 合并下实现 点击一个按钮，在 方框1 录入文字  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189475)
--  作者：xianxin2010
--  发布时间：2023/12/4 14:59:00
--  [求助] 2段 合并下实现 点击一个按钮，在 方框1 录入文字
老师好

这是 一个窗口 按钮 的 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编辑过]
--  作者：有点蓝
--  发布时间：2023/12/4 15:01:00
--  
把代码放到一起就行了呀
--  作者：xianxin2010
--  发布时间：2023/12/4 15:06:00
--  
试过的，不行有提示的

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

图片点击可在新窗口打开查看此主题相关图片如下：b.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2023/12/4 15:09:00
--  
变量名称重复了，第二个变量换个名称呗

比如
Dim txt2 As String = e.Form.Controls("方框1").Text
--  作者：xianxin2010
--  发布时间：2023/12/4 15:18:00
--  
图片点击可在新窗口打开查看 图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2023/12/4 15:25:00
--  
另外，产品这种列就应该设置为字符型列，不应该设置为数值列。这样没有必要做转换，效率高很多

Tables("A表").Filter = "产品 Like " & txt