Dim xz As WinForm.ComboBox = e.Form.Controls("乡镇") Dim xzc As WinForm.ComboBox = e.Form.Controls("行政村") Dim xm As WinForm.TextBox = e.Form.Controls("姓名") Dim sfzh As WinForm.TextBox = e.Form.Controls("身份证号")
Tables("未脱贫人口信息表").filter="乡镇 = '" & xz.text & "' and 行政村 = '" & xzc.text & "' and 姓名 like '*" & xm.text & "*' And 身份证号 Like '*" & sfzh.text & "*'"