Dim s As String = "等待出库"
Dim y As Integer = Date.Today.Year
Dim w As Integer = Date.Today.DayOfWeek '算出今天是星期几
Dim dt1 As Date = Date.Today.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = Date.Today.AddDays(6 - w) '获取本周的最后一天
Dim Filter As String
Filter = "下单日期 >= #" & dt1 & "# And 下单日期 <= #" & dt2 & "# or 出库情况 is null or 出库情况='"& s &"'"
DataTables("出库明细表").LoadFilter=Filter
DataTables("出库明细表").Load()
狐爸好,麻烦帮我看看这段代码哪里有问题?为什么执行的时候总是提示 # 附近有错误。
我用上面代码执行查询都可,可是改成加载就不行了。谢谢!!