If Forms("订购单录入").Opened Then Tables("订购单选择_Table1").Filter = "工程名称='" & Forms("订购单录入").Controls("Combobox1").Text & "'" End If