Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个窗口筛选出另一个窗口


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

主题：一个窗口筛选出另一个窗口
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00 		一个窗口筛选出另一个窗口  发帖心情 Post By：2018/6/29 12:56:00 [只看该作者]

能帮忙看看这段代码是那里出了问题啊！

If forms("产品编辑窗口").Opened=False Then
    forms("产品编辑窗口").Open
End If
forms("产品编辑窗口").visible=True

Dim Filter As String
With forms("平台管理窗口").Controls("Label01")
If .Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & "And "
    End If
    Filter = Filter & "属性_产品编号 = '" & .Value & "'"   '此处内容自行修改
End If
End With
If Filter > "" Then
    Tables("产品编辑窗口_Table1").Filter = Filter
End If  '显示订单清单的列表

就是点击平台管理窗口的按钮后， 筛选出平台管理窗口的Label01与产品编辑窗口的Table1的属性_产品编号列相同的行。
感谢 感谢 
 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If forms("产品编辑窗口").Opened=False Then
    forms("产品编辑窗口").Open
End If
forms("产品编辑窗口").visible=True

Tables("产品编辑窗口_Table1").Filter = "属性_产品编号 = '" & forms("平台管理窗口").Controls("Label01").Text & "'" 

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


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

Tables("产品编辑窗口_Table1").Filter="(属性_型号= Nothing)"
字母筛选出 属性_型号 列为空白的行啊 感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Tables("产品编辑窗口_Table1").Filter="属性_型号 is null"

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