Dim nyf As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim wls As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Tables("外购表").Filter = "客户 like'*" & nyf.Text & "*'and 数量 = '*" & wls.text & "*'"