| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 一个窗口筛选出另一个窗口 (http://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" |