采购日期过滤数据问题

张斌　发表于：2015-04-13 20:30:35 　

    '根据用户表内Company来判断工厂权限
        Dim strCompany As String: strCompany = GetParameter("Current User Company", dbText, "")
        Dim strdepartment As String: strdepartment = GetParameter("Current User department", dbText, "")
        Dim strdate As String
        If strdepartment <> "ALL" Then
            Select Case strCompany
            Case strCompany = "9000", "8000", "7000", "6000", "5000"

                '                .FixedWhereSQL = "工厂='" & strCompany & "' and 采购部门='" & strdepartment & "'"
                '                .FixedQueryConditions = "工厂='" & strCompany & "' and 采购部门='" & strdepartment & "'"
                '                Me.sfrList.Form.Filter = "工厂='" & Forms!SysFrmMain!Company & "' And 采购部门='" & Forms!SysFrmMain!department & "'"

                .FixedWhereSQL = "工厂='" & strCompany & "' and 采购部门='" & strdepartment & "' and 采购日期='" & "Strdate >= #" & "DATEadd('d',-5,date())" & "#"
                .FixedQueryConditions = "工厂='" & strCompany & "' and 采购部门='" & strdepartment & "' and 采购日期='" & "strdate >= #" & "DATEadd('d',-5,date())" & "#"

                Me.sfrList.Form.Filter = "工厂='" & Forms!SysFrmMain!Company & "' And 采购部门='" & Forms!SysFrmMain!department & "'And 采购日期='" & "strdate >= #" & "DATEadd('d',-5,date())" & "#"

                Me.sfrList.Form.FilterOn = True

            Case "ALL"
                Me.sfrList.Form.Filter = ""
                Me.sfrList.Form.FilterOn = False
            End Select
        End If

上面的加一个采购日期过滤数据，，怎么不能通过？？老师给检查一下

Top

缪炜发表于：2015-04-13 20:33:15

debug 一下 "工厂='" & Forms!SysFrmMain!Company & "' And 采购部门='" & Forms!SysFrmMain!department & "'And 采购日期='" & "strdate >= #" & "DATEadd('d',-5,date())" & "#"
看看结果是什么

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

[5分]采购日期过滤数据问题