Dim tymc As WinForm.TextBox = e.Form.Controls("通用名称")
Dim sccj As WinForm.TextBox = e.Form.Controls("生产厂家")
Dim ghdw As WinForm.TextBox = e.Form.Controls("供货单位")
Dim dkzh As WinForm.TextBox = e.Form.Controls("打款账号")
Dim ywy As WinForm.TextBox = e.Form.Controls("业务员")
Dim lxdh As WinForm.TextBox = e.Form.Controls("联系电话")
Dim czhm As WinForm.TextBox = e.Form.Controls("传真号码")
Dim lxqq As WinForm.TextBox = e.Form.Controls("联系QQ")
Dim fkms As WinForm.TextBox = e.Form.Controls("付款模式")
Dim sjqk As WinForm.TextBox = e.Form.Controls("上家欠款")
Dim bzj As WinForm.TextBox = e.Form.Controls("保证金")
Tables("基础信息表").Filter="通用名称 like '*" & tymc.Text & "*' and 生产厂家 like '*" & sccj.text & "*' and 供货单位 like '*" & ghdw.text & "*' and 打款账号 like '*" & dkzh.text & "*' and 业务员 like '*" & ywy.text & "*' and 联系电话 like '*" & lxdh.text & "*' and 传真号码 like '*" & czhm.text & "*' and 联系QQ like '*" & lxqq.text & "*' and 付款模式 like '*" & fkms.text & "*' and 上家欠款 like '*" & sjqk.text & "*' and 保证金 like '*" & bzj.text & "*'"