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" 就不报错 是为什么呢