以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  table如果没有符合筛选条件的数据,会报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54776)

--  作者:zhchling
--  发布时间:2014/8/4 15:27:00
--  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
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-8-4 15:28:44编辑过]

--  作者:Bin
--  发布时间:2014/8/4 15:33:00
--  
在CUrrentChanged事件要判断一下当前行是否为空.

if e.table.current isnot nothing then

  不为空在执行其他代码
end if