主题：求助：查询时，查无数据时，如何不显示为空表，而保持当前表？

Dim year As WinForm.comboBox = e.Form.Controls("year")

Dim no As WinForm.textBox = e.Form.Controls("No")

If no.text.length <>3 Then

    MessageBox.show("总序号应是三位数,现在输入的位数是:" & no.text.length & "位数!")

Else

    Tables("购置申请管理").Filter="购置申请编号分解_年度 = '" & year.Text & "' and 购置申请编号分解_总序号 = '" & no.text & "'"

End If