Dim zg As WinForm.ComboBox = e.Form.Controls("主管") Dim hbsj As WinForm.ComboBox = e.Form.Controls("汇报上级") Dim yggh As WinForm.TextBox = e.Form.Controls("员工工号") Dim sfzhm As WinForm.TextBox = e.Form.Controls("身份证号码")
Tables("人员信息表"),Filter="所属主管 = '" & zg.Text & "' and 汇报上级 = '" & hbsj.Text & "' and 员工工号 Like '*" & yggh.Text & "*' and 身份证号码 Like '*" & sfzhm.Text & "*'"