If .value IsNot Nothing AndAlso .value="所有转账" Then
If zzmc.value IsNot Nothing AndAlso zzmc .value="所有账户" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & " 转出账户 ="'"
Filter = Filter & " And 转入账户 ="'"
Else
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "转出账户= '" & .Value & "'"
Filter = Filter & " And 转入账户= '" & .Value & "'"
End If
ElseIf .value="转出账目" Then
If zzmc.value IsNot Nothing AndAlso zzmc .value="所有账户" Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "转出账户= "'"
Else
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "转出账户= '" & .Value & "'"
End If
End If
这段代码哪有为题呢？运行后怎么老缺少参数呢？
[此贴子已经被作者于2020/3/13 21:45:15编辑过]
加好友 
发短信
Post By：2020/3/13 15:43:00 [只看该作者]
