为什么同时满足同项条件筛选条件要减去5？

殷小宝　发表于：2010-11-21 23:56:39 　

这是查询单击事件代码：

Private Sub 查找_Click()
On Error GoTo Err_cmd查询_Click

    Dim strWhere As String

    strWhere = ""

    If Not IsNull(Me.文化程度) Then
        strWhere = strWhere & "([文化程度] like '*" & Me.文化程度 & "*') AND "
    End If
If Not IsNull(Me.年龄小值) Then
      strWhere = strWhere & "DateDiff(""d"",出生日期,date())/365 >= " & Me.年龄小值 & " And "
    End If
    If Not IsNull(Me.年龄大值) Then
      strWhere = strWhere & "Datediff(""d"",出生日期,date())/365 <= " & Me.年龄大值 & " And "
    End If

If Len(strWhere) > 0 Then

        strWhere = Left(strWhere, Len(strWhere) - 5) '请问这里为什么要减去5个字符?
    End If


   Me.查询子窗体.Form.Filter = strWhere
   Me.查询子窗体.Form.FilterOn = True

Exit_cmd查询_Click:
    Exit Sub

Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click

End Sub

我的问题见上面的红字部分,希望得到老师们的指点,谢谢了.

点击下载此附件

Top

煮江品茶发表于：2010-11-22 08:58:58

请参见《切掉尾巴》一文。

Top

殷小宝　发表于：2010-11-22 22:23:41

strWhere = Left(strWhere, Len(strWhere) - 5)此为筛选条件，裁掉5个字符是不是"" And "这个？我看就是这个，这样就比较好理解了。请问老师们是不是这样？ And

Top

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

Access交流中心

为什么同时满足同项条件筛选条件要减去5？