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

调试一下，看看条件十分正确

多余的单引号都看不到么

去了还是错误呢？

关键字前后加空格啊，不然就粘成一个词了

贴完整代码

Dim cxfs As WinForm.RadioButton

Dim Filter As String

Select Case cxfs

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

  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

             With  zzlx

            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 & " Or 转入账户="'"

                            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

                    If Filter > "" Then

                        Filter = Filter & " And "

                    End If

                    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

                    If Filter > "" Then

                        Filter = Filter & " And "

                    End If

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

                End If

            End If

                  End With

全部数据还有必要添加条件吗？去掉