\'DropDownOpened
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("物料下拉_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'%" & txt & "%\'"
tbl.Filter = "物号 Like " & txt & " Or 名称 Like " & txt & " Or 规格 Like " & txt & " Or 材质 Like " & txt & " Or 品牌 Like " & txt
End If
e.Form.DropDownBox.Select() \'将输入焦点返回下拉列表框