主题：筛选代码空行提示错误，如何修改？

表中都没有行的话，CurrentTable.Current肯定会出错啊？

代码前面加上：

If Tables("XXX").Current Is Nothing then

    Return

End if

老总，我这样的代码有四组，分别对应“已停医嘱”、“未停医嘱”、“今日医嘱”、“全部医嘱”，能不能进行下一个筛选前撤销之前的筛选，有参数吗？，向易表那样？

不然在每组代码前都需加：

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

如果有几千行数据，让重新显示再筛选，有点滑稽。