为什么执行该语句后扔无变化

alice1234

为什么使用截取语句后没有将AND去掉？

koutx

改为:
If Len(strWhere) >5 Then
试试

nxjswt

一个例子

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

    '查询语句
    Me.Refresh
    Dim strWhere As String
    strWhere = ""
   
        
    If Not IsNull(Me.帐号) Then
        strWhere = strWhere & "([帐号] like '*" & Me.帐号 & "*') AND "
    End If
     If Not IsNull(Me.备注) Then
        strWhere = strWhere & "([备注] like '*" & Me.备注 & "*') AND "
    End If
   
            
    '==========================================================
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If

    Me.frmChaxun1.Form.FilterOn = True
    Me.frmChaxun1.Form.Filter = strWhere
   
   
    '为了记录计数正确，使用这个语句
    Me.frmChaxun1.Form.Recordset.MoveLast
   
    '显示查询结果计数
        
    If Me.查询记录计数 = 0 Then
          MsgBox "没有查询到任何记录！", vbExclamation, "注意！"
        Else
          MsgBox "当前查询到" & Me.查询记录计数 & "条记录！", vbInformation, "注意！"
    End If
   
Exit_Command13_Click:
    Exit Sub

Err_Command13_Click:
    MsgBox Err.Description
    Resume Exit_Command13_Click
   
End Sub

轻风

仅此图看不出来，看代码应该没错。你把断点设到下一句再截图看看有没有截掉。

alice1234

还是没截掉，怎么办？

alice1234

这回截掉AND了，但是查询后子窗体内容好像没有执行过滤，总是显示全部信息

alice1234

请求帮助解决楼上的问题

轻风

不会吧，上传看看

alice1234

上传，请指教

alice1234

怎么没人说