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


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

主题:一个窗口筛选出另一个窗口

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望: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的属性_产品编号列相同的行。
感谢 感谢 
 

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2018/7/4 13:37:00 [显示全部帖子]

Tables("产品编辑窗口_Table1").Filter="(属性_型号= Nothing)"
字母筛选出 属性_型号 列为空白的行啊 感谢 感谢 

 回到顶部