If e.Col.Name = "货号" Then '如果编辑的是客户ID列
If e.Col.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As Table = Tables("窗口2_Table1")
If e.Text = "" Then '如果内容为空
tbl.Filter = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'*" & e.Text & "*'"
tbl.Filter = "货号 Like " & txt & " Or 图纸号 Like " & txt
End If
End If
End If
[此贴子已经被作者于2013-3-31 17:45:22编辑过]