Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选数据时弹出错误提示


  共有4364人关注过本帖树形打印复制链接

主题：筛选数据时弹出错误提示
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 15:47:00 [显示全部帖子]

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

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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 16:27:00 [显示全部帖子]

多余的单引号都看不到么

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 17:18:00 [显示全部帖子]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 20:04:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 20:30:00 [显示全部帖子]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 21:23:00 [显示全部帖子]

后面2种情况没看懂

当转账类型控件选择不是 "所有转账"和转账名称控件选择 是 "所有账户"时 筛选出符合时间内的 转出账户（符合条件的）或者 转入账户 （符合条件的）数据 根据选择的转出账目、转入账目而定    

当转账类型控件选择不是 "所有转账"和转账名称控件选择 不是 "所有账户"时 筛选出符合时间内的 转出账户（符合条件的）和 转入账户 （符合条件的）数据 根据选择的转出账目、转入账目而定 和转账名称控件选择 名称而定 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 21:51:00 [显示全部帖子]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 22:12:00 [显示全部帖子]

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

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 22:38:00 [显示全部帖子]

Dim cxfs As WinForm.RadioButton

Dim Filter As String


if e.Form.Controls("mxRadioButton").Checked
        
        If qssj.Value IsNot Nothing AndAlso zzsj.Value IsNot Nothing Then
            
            Filter = Filter & "转账日期>= #" & StartDate & "# And  转账日期 <= #" & EndDate & "# "
        End If
        If zzmc.value<>"所有账户" AndAlso zzmc.value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            If zzlx.value  = "所有转账" OrElse zzlx.value Is Nothing
                Filter = Filter & " (转出账户='" & zzmc.value & "' or 转入账户='" & zzmc.value & "')"
            ElseIf zzmc.value = "转出账户"
                Filter = Filter & " 转出账户='" & zzmc.value & "'"
            Else
                Filter = Filter & " 转入账户='" & zzmc.value & "'"
            End If
        End If
        
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/3/13 23:04:00 [显示全部帖子]

If zzlx.value  = "所有转账" OrElse zzlx.value Is Nothing
                Filter = Filter & " (转出账户='" & zzmc.value & "' or 转入账户='" & zzmc.value & "')"
            ElseIf zzlx.value = "转出账户"
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询