能帮忙看看这段代码是那里出了问题啊!
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的属性_产品编号列相同的行。
感谢 感谢