共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助] 2段 合并下实现 点击一个按钮，在 方框1 录入文字
1楼
xianxin2010 发表于：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楼
有点蓝 发表于：2023/12/4 15:01:00把代码放到一起就行了呀
3楼
xianxin2010 发表于：2023/12/4 15:06:00试过的，不行有提示的
此主题相关图片如下：a.jpg
此主题相关图片如下：b.jpg
此主题相关图片如下：a.jpg此主题相关图片如下：b.jpg4楼
有点蓝 发表于：2023/12/4 15:09:00变量名称重复了，第二个变量换个名称呗
比如
Dim txt2 As String = e.Form.Controls("方框1").Text
5楼
xianxin2010 发表于：2023/12/4 15:18:00
6楼
有点蓝 发表于：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楼
有点蓝 发表于：2023/12/4 15:25:00另外，产品这种列就应该设置为字符型列，不应该设置为数值列。这样没有必要做转换，效率高很多
Tables("A表").Filter = "产品 Like " & txt
共7 条记录, 每页显示 10 条, 页签:
[1]