调试一下，看看条件十分正确
If .value IsNot Nothing AndAlso .value="所有转账" Then
If zzmc.value IsNot Nothing AndAlso zzmc .value="所有账户" Then
If Filter > "" Then
Filter = Filter & " And "
End If
msgbox(Filter )
Filter = Filter & " 转出账户 ="'"
msgbox(Filter )
Filter = Filter & " And 转入账户 ="'"
msgbox(Filter )
Else
If Filter > "" Then
Filter = Filter & " And "
End If
msgbox(Filter )
Filter = Filter & "转出账户= '" & .Value & "'"
msgbox(Filter )
Filter = Filter & " And 转入账户= '" & .Value & "'"
msgbox(Filter )
End If
加好友 
发短信
Post By：2020/3/13 15:47:00 [只看该作者]
