主题：筛选数据时弹出错误提示

有一张转账交易流水表字段如下

后面2种情况没看懂

转账名称选择"所有账户"时，转账类型选 "转出账户” 还是"转入账户” 有什么区别？不都是所有数据？

蓝老师不一样的  因为 "转出账户” 还是"转入账户” 字段都有自己的账户名称？比如要筛选 "转出账户” 字段中所有数据时，"转入账户” 字段可以为别的数据比如“工商银行”‘光大银行’等待，反之要筛选 "转出账户” 字段中某一个数据的字段时比如“工商银行”‘光大银行’等待，"转入账户” 字段也可以是 所有数据，

还是没搞懂， "转出账户” 和"转入账户”是同一个表的2个列，"转出账户”的所有数据不就是指这个表所有行数据？不也就包括了"转入账户”所有数据？

Dim cxfs As WinForm.RadioButton

Dim Filter As String

Select Case cxfs

    Case cxfs =e.Form.Controls("mxRadioButton").Checked

  

        With  zzlx

            If .value IsNot Nothing  AndAlso .value="所有转账"  Then

                If zzmc.value IsNot Nothing  AndAlso zzmc.value="所有账户"  Then

                    If Filter > "" Then

                        Filter = Filter & " And "             

                Else

                    If Filter > "" Then

                        Filter = Filter & " And "

                    End If

                    Filter = Filter & "转出账户= '" & zzmc.Value & "'"

                    Filter = Filter & "or 转入账户= '" & zzmc.Value & "'"

                End If

            ElseIf .value="转出账目" Then

                If zzmc.value IsNot Nothing  AndAlso zzmc .value="所有账户"  Then

                    If Filter > "" Then

                        Filter = Filter & " And "

                    End If

                Else

                    Filter = Filter & "转出账户= '" & zzmc.Value & "'"

                End If

            ElseIf .value="转入账目" Then

                If zzmc.value IsNot Nothing  AndAlso zzmc .value="所有账户"  Then

                    If Filter > "" Then

                        Filter = Filter & " And "

                    End If

                Else

                    Filter = Filter & "转入账户= '" & zzmc.Value & "'"

                End If

            End If

               If qssj.Value IsNot Nothing AndAlso zzsj.Value IsNot Nothing Then

                If Filter > "" Then

                    Filter = Filter & " And "

                End If

                Filter = Filter & "转账日期>= #" & StartDate & "# And  转账日期 <= #" & EndDate & "# "

            End If

 

        End With

此主题相关图片如下：截图11.jpg

此主题相关图片如下：截图12.jpg

此主题相关图片如下：截图13.jpg

 蓝老师经过修改 和自己想要实现的基本一致，但是已加入时间段条件就不对了？如果转账名称控件选择全部，正常，如果选择其他筛选条件，都不对了   您看看哪有问题？

经过测试，不对