Dim cp As WinForm.ComboBox = e.Form.Controls("产品")
Dim ks As WinForm.TextBox = e.Form.Controls("科室")
Dim xgyw As WinForm.TextBox = e.Form.Controls("相关药物")
Dim syz As WinForm.TextBox = e.Form.Controls("适应症")
Dim yjjl As WinForm.TextBox = e.Form.Controls("研究结论")
Tables("文献").Filter = "对应产品 Like \'*" & cp.Text & "*\' And 科室 Like \'*" & ks.Text & "*\' And 相关药物 Like \'*" & xgyw.Text & "*\' And 适应症 Like \'*" & syz.Text & "*\'And 研究结论 Like \'*" & yjjl.Text & "*\'"