If e.Col.Name = "口径" Then '如果编辑的是客户ID列 If e.Col.DroppedDown Then '如果下拉窗口已经打开 Dim tbl As Table = Tables("窗口1_Table1")
e.text=e.Row("客户要求产品名称")
If e.Text = "" Then '如果内容为空 tbl.Filter = "" '显示所有客户 Else '否则根据输入内容进行模糊筛选 Dim txt As String = "'%" & e.Text & "%'" tbl.Filter = "客户要求产品名称 like " & txt End If End If End If