查询其他表格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2199人关注过本帖树形打印复制链接主题：查询其他表格

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

yangwenghd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & "'" '此处内容自行修改

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

yangwenghd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2014/11/29 12:07:00 [显示全部帖子]

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

下一主题 >> << 上一主题

主题：查询其他表格