Dim txt As String = e.Form.DropDownBox.Text Dim tbl As Table = Tables("检验批信息录入_检验批下拉_Table1") Dim gcbh As WinForm.TextBox = Forms("检验批信息录入").Controls("工程编号") If txt = "" Then tbl.Filter = "工程编号 = '" & gcbh.value & "'" Else txt = "'%" & txt & "%'" tbl.Filter = "工程编号 = '" & gcbh.value & "' And 检验批 Like " & txt End If e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框