老总,我这样的代码有四组,分别对应“已停医嘱”、“未停医嘱”、“今日医嘱”、“全部医嘱”,能不能进行下一个筛选前撤销之前的筛选,有参数吗?,向易表那样?
不然在每组代码前都需加:
If Tables("XXX").Current Is Nothing then
Tables("XXX").Filter = ""
End if
这样做能成功,但太牵强,等于是显示了全部,然后又进行了筛选,不太科学。
If Tables("长期医嘱").Current Is Nothing Then
Tables("长期医嘱").Filter = ""
End If
If e.form.Controls("CheckBox1").checked And e.Sender.Checked Then
Tables("长期医嘱").Filter = "执行 = True"
Else
Tables("长期医嘱").Filter = "执行 = True And 住院号 ="& CurrentTable.Current("住院号") &""
End If
如果有几千行数据,让重新显示再筛选,有点滑稽。
[此贴子已经被作者于2011-8-8 17:55:28编辑过]