Dim c As WinForm.ComboBox = e.Form.Controls("厂")
Dim wlm As WinForm.ComboBox = e.Form.Controls("物料名")
Dim wlbm As WinForm.TextBox = e.Form.Controls("物料编码")
Dim gx As WinForm.TextBox = e.Form.Controls("规型")
Tables("物料信息表").Filter="供货厂家= '" & c.text & "'and 物料名称= '" & wlm.text & "' And 物料编号 like '" & wlbm.text & "' And 型号规格 like '" & gx.text & "'"
此主题相关图片如下:查询数据没了.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2013-7/201371011375972521.png)