Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询其他表格


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

主题：查询其他表格
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		查询其他表格  发帖心情 Post By：2014/11/6 20:21:00 [只看该作者]

谢谢 帮忙看看 如果“基本信息_在职企业号”在另外一个表应该怎么该啊，比如表B


Dim Filter As String
With e.Form.Controls("TextBox10")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "基本信息_在职企业号 = '" & .Value & "'"   '此处内容自行修改
    End If
End With
If Filter > "" Then
    Tables("企业档案窗口_Table5").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/6 20:24:00 [只看该作者]

 1、可以两表建立关联，然后这个表引用表B的列；

 

 2、或者用代码先查出相关的数据，再重新查询。

[此贴子已经被作者于2014-11-6 20:23:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/11/6 22:35:00 [只看该作者]

谢谢，可以直接改这一条吗？
表示基本信息_在职企业号是表B的 
也就是在TextBox10 输入数据 点击查询，把显示的内容显示到企业档案窗口_Table5

Filter = Filter & "基本信息_在职企业号 = '" & .Value & "'"   '此处内容自行修改
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/11/6 22:38:00 [只看该作者]

Filter = Filter  & " 关联列 in ('" & DataTables("表B").GetComboListString("关联列", "基本信息_在职企业号 = '" & "" & "'").Replace("|", "','") & "')"   '此处内容自行修改

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/11/29 11:38:00 [只看该作者]

感谢 感谢 能帮我看看吗？
写入代码后没有反应
Dim Filter As String
With e.Form.Controls("TextBox10")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter  & " 型号 In ('" & DataTables("价格表").GetComboListString("型号", "型号 = '" & "" & "'").Replace("|", "','") & "')"   '此处内容自行修改
    End If
End With
If Filter > "" Then
    Tables("企业档案窗口_Table5").Filter = Filter
End If
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12123 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/11/29 11:57:00 [只看该作者]

把 Filter 弹出来看看

 

 

 

http://www.foxtable.com/help/index.html?n=0393.htm
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2014/11/29 12:07:00 [只看该作者]

哦 谢谢 如果是模糊搜索应该怎么该啊！感谢 感谢

 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12123 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/11/29 12:12:00 [只看该作者]

用 like

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2014/11/29 15:01:00 [只看该作者]


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