如图,文本框在afterload中已筛选出来了,Dim cmb As WinForm.ComboBox = e.form.Controls("产品名称") cmb.ComboList = DataTables("产品库").GetComboListString("名称")
Dim gysh As WinForm.ComboBox = e.form.Controls("供应商")
gysh.ComboList = DataTables("产品库").GetComboListString("供应商")
Dim fenlei As WinForm.ComboBox = e.form.Controls("分类")
fenlei.ComboList = DataTables("产品库").GetComboListString("分类")
Dim fenlei1 As WinForm.ComboBox = e.form.Controls("分类1")
fenlei1.ComboList = DataTables("产品库").GetComboListString("分类1")

此主题相关图片如下:无标题.png

Tables("产品库").Filter = "名称 like '*" & cmb.text & "* 'or 供应商 like '*" & gysh.text & "* ' or 分类 like '*" & fenlei.text & "* ' or 分类1 like '*" & fenlei1.text & "* '"按