以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码报错咨询  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=96253)
--  作者：zchlln
--  发布时间：2017/2/16 13:30:00
--  代码报错咨询
Dim dt As Date = Date.Today.AddDays(-30)
Dim dr As DataRow = DataTables("续费表").Find("安装日期 <= #" & dt & "#")
If dr IsNot Nothing Then
      Tables("续费表").Filter = "安装日期 <= #" & dt & "#" Or "服务费用 Is null"

      MainTable = Tables("续费表")
End If

详细错误信息：
从字符串“安装日期 <= #2017/1/17#”到类型“Long”的转换无效。
输入字符串的格式不正确。

如果不加 Or "服务费用 Is null" 就不报错 是为什么呢
--  作者：有点色
--  发布时间：2017/2/16 14:00:00
--  
Dim dt As Date = Date.Today.AddDays(-30)
Dim dr As DataRow = DataTables("续费表").Find("安装日期 <= #" & dt & "#")
If dr IsNot Nothing Then
      Tables("续费表").Filter = "安装日期 <= #" & dt & "# Or 服务费用 Is null"

      MainTable = Tables("续费表")
End If