Dim gys As WinForm.ComboBox = e.Form.Controls("供应商")
Dim spmc As WinForm.ComboBox = e.Form.Controls("商品名称")
Dim ddbh As WinForm.TextBox = e.Form.Controls("订单编号")
Dim sl As WinForm.TextBox = e.Form.Controls("数量")
Tables("订单信息表").Filter="供应商 = '" & gys.Text & "' and 商品名称 = '" & spmc.Text & "' and 订单编号 = '*" & ddbh.Text & "*' and 数量 = '*" & sl.Text & "*'"