Foxtable(狐表)用户栏目专家坐堂 → 如何制作检索按钮可同时检索多张表格?


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

主题:如何制作检索按钮可同时检索多张表格?

帅哥哟,离线,有人找我吗?
初级狐鸟
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:355 积分:2415 威望:0 精华:0 注册:2012/7/9 11:55:00
如何制作检索按钮可同时检索多张表格?  发帖心情 Post By:2012/7/12 16:34:00 [只看该作者]

检索单张的表格,其按钮带学习为

Dim txt As String = e.Form.Controls("TextBox11").Text
Dim tbl As Table = Tables("往来帐")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "商家编码 Like " & txt & " Or 商家名称 Like " & txt & " Or 操作员 Like " & txt & " Or 摘要 Like " & txt  & " Or 金额类别 Like " & txt    & " Or 关联工单 Like " & txt    & " Or 备注 Like " & txt     
End If

如何设置代码使其可以一次检索多张表格呢?

 

 

麻烦指导了哦~


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/7/12 17:12:00 [只看该作者]

Dim txt As String = e.Form.Controls("TextBox11").Text
Dim tbl1 As Table = Tables("往来帐")
Dim tbl2 As Table = Tables("往来帐2")
If txt = "" Then
    tbl1.Filter = ""

    tbl2.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl1.Filter = "商家编码 Like " & txt & " Or 商家名称 Like " & txt & " Or 操作员 Like " & txt & " Or 摘要 Like " & txt  & " Or 金额类别 Like " & txt    & " Or 关联工单 Like " & txt    & " Or 备注 Like " & txt     
    tbl2.filter = tbl1.filter
End If


 回到顶部
帅哥哟,离线,有人找我吗?
初级狐鸟
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:355 积分:2415 威望:0 精华:0 注册:2012/7/9 11:55:00
  发帖心情 Post By:2012/7/12 17:28:00 [只看该作者]

哦~~这么子的索,谢谢了哦!

 回到顶部