主题：TextChanged 事件代码求助

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

在  型号规格 的TextChanged事件代码如下

Dim va As WinForm.TextBox = e.Form.Controls("型号规格")
Tables("物料信息").Filter = "型号规格 like '%" & va.text.Replace("*","[*]") & "%'" 

现在比方在型号规格 输入 a 只想筛选出 AA的，不想BB的也筛选出有 A  的怎么实现