Foxtable(狐表)用户栏目专家坐堂 → [求助]按时间段加载


  共有2144人关注过本帖平板打印复制链接

主题:[求助]按时间段加载

帅哥哟,离线,有人找我吗?
zswushi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1723 威望:0 精华:0 注册:2016/5/30 16:23:00
[求助]按时间段加载  发帖心情 Post By:2016/11/3 9:10:00 [只看该作者]

这段代码运行后, 总是提示        第 1 行: '2016-11-1' 附近有语法错误。 我时间段是 2016-11-01  到 2016-11-30的,我试了很多方法,请指教
 Dim filter As String
        With e.Form.Controls("datetimepicker1")
            If .Value IsNot Nothing Then
                If Filter >"" Then
                    Filter = Filter & " And "
                End If
                Filter = Filter & " [开单日期] >= # '" & .Value & "' # "
            End If
        End With
        With e.Form.Controls("datetimepicker2")
            If .Value IsNot Nothing Then
                If Filter >"" Then
                    Filter = Filter & " And "
                End If
                Filter = Filter & " [开单日期] <= #'" & .Value & "'#"
            End If
        End With
        
        If Filter > "" Then
            DataTables("出库单据列表").LoadFilter = filter
            DataTables("出库单据列表").Load()
        End If

 回到顶部