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 & "*'"