主题：table如果没有符合筛选条件的数据,会报错

If e.Form.Controls("ComboBox3").value = ""   Then
     Tables("发车单_Table1").filter= "[日期] = #" & e.Form.Controls("DateTimePicker1").value & "# And ([可信度] not in ('取消','备用') or [可信度] is null) "
 
Else
   
    Tables("发车单_Table1").filter= "[日期] = #" & e.Form.Controls("DateTimePicker1").value & "# and [起至区间1]='" & e.Form.Controls("ComboBox3").value & " ' And ([可信度] not in ('取消','备用') or [可信度] is null) "
   
End If

 

 

table如果没有符合筛选条件的数据,会报错, 怎么解决这个问题

 

1. 代码上判断能否有符合条件的数据. 怎么写代码?

 

2. 如果不写判断的代码.  是不是可以从错误提示上下手,比如,有没有语句设置,不弹出错误提示?

此主题相关图片如下：3333.jpg

在CUrrentChanged事件要判断一下当前行是否为空.