Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口如何显示表


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

主题:[求助]窗口如何显示表

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
[求助]窗口如何显示表  发帖心情 Post By:2013/12/25 12:35:00 [显示全部帖子]

表A是库存表,新建一个窗口以后,插入表绑定到表A。。

这样表A只能通过窗口查看了,切到库存表,数据和表格都不显示了。

如果能2种方式都显示表A呢。。。

 


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 14:17:00 [显示全部帖子]

如果我想查找窗口中的表,请问设置的筛选按钮代码跟原来主表中的筛选代码一样吗

 


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 14:25:00 [显示全部帖子]

谢谢老师

 


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 14:37:00 [显示全部帖子]


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

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20131225143559.jpg
图片点击可在新窗口打开查看
Bin老师,是这样更改吗?您看下

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 14:48:00 [显示全部帖子]

我的窗口名是窗口1,副本表的表名是yuanzhifuben。

 


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


 

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "编号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "品牌 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
    Tables("窗口1_yuanzhifuben").Filter = Filter
End If

 

提示:


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

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 14:49:00 [显示全部帖子]

您帮我看看什么问题啊,Bin老师


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 14:59:00 [显示全部帖子]


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

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

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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 15:03:00 [显示全部帖子]


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

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

 

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "编号 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "品牌 = '" & .Value & "'"
    End If
End With

If Filter > "" Then
    Tables("窗口1_yuanzhi1").Filter = Filter
End If


 


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


加好友 发短信
等级:婴狐 帖子:93 积分:677 威望:0 精华:0 注册:2013/12/18 16:27:00
  发帖心情 Post By:2013/12/25 15:05:00 [显示全部帖子]

找出问题了,谢谢老师。我把窗口名给搞错了


 回到顶部