主题：这个代码怎么修改?

你现在无法让电脑区别你想在哪个表中查找,所以它就自做主张,选择后面代码执行了,呵呵

加一个Checked进行勾选,比如,勾上,就在明细表中查找,反之就在出库表中查找,请看下面红色部分:

with e.form
    Dim T1 As WinForm.TextBox = .Controls("TextBox1")
if Forms("目录树").Controls("CheckBox1").Checked = True Then
Tables("目录树_Table1").DataSource = DataTables("出库明细")
    Tables("目录树_Table1").Filter = "[出库单编号] Like '*" & T1.text & "*' or [出库用途] Like '*" & T1.text & "*'"
Else   
Tables("目录树_Table1").DataSource = DataTables("出库")
    Tables("目录树_Table1").Filter = "[出库单编号] Like '*" & T1.text & "*' or [出库用途] Like '*" & T1.text & "*'or [领用部门] Like '*" & T1.text & "*'or [领料人]Like '*" & T1.text & "*'"
  End If
end with