专家坐堂-一个窗口筛选出另一个窗口Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  一个窗口筛选出另一个窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121117)

--  作者：yangwenghd
--  发布时间：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的属性_产品编号列相同的行。
感谢感谢

--  作者：有点甜
--  发布时间：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
--  发布时间：2018/7/4 13:37:00
--
Tables("产品编辑窗口_Table1").Filter="(属性_型号= Nothing)"
字母筛选出属性_型号列为空白的行啊感谢感谢

--  作者：有点甜
--  发布时间：2018/7/4 14:45:00
--
Tables("产品编辑窗口_Table1").Filter="属性_型号 is null"