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


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

主题：筛选数据时弹出错误提示
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		筛选数据时弹出错误提示  发帖心情 Post By：2020/3/13 15:43: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
                    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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 16:03:00 [显示全部帖子]

 假如“转出账户”和“转出账户”都为空值的时候
           Filter = Filter & " 转出账户 Is null'"
            Filter = Filter & "Or 转入账户 Is null'"

代码对吗？
怎么老弹出缺少参数呢？

此主题相关图片如下：截图02.jpg
按此在新窗口浏览图片

此主题相关图片如下：截图03.jpg
按此在新窗口浏览图片



[此贴子已经被作者于2020/3/13 16:08:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 17:11:00 [显示全部帖子]

去了还是错误呢？
 Filter = Filter & " 转出账户 Is null"
            Filter = Filter & "Or 转入账户 Is null"
          msgbox(Filter )



图片点击可在新窗口打开查看此主题相关图片如下：截图04.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图05.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图06.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/3/13 17:11:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 17:52:00 [显示全部帖子]

 筛选出 转出账户为全部数据怎么写呀？怎么老错呢？
  Filter = Filter & " 转出账户 ="'"
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 20:28:00 [显示全部帖子]

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
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 21:00:00 [显示全部帖子]

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

转账交易流水

 

ZZJYLSID() ----> 字符型(255)

转账日期() ----> 日期型

转出账户() ----> 字符型(255)

转入账户() ----> 字符型(255)

转账金额() ----> 高精度小数

转出后账户余额() ----> 高精度小数

转入后账户余额() ----> 高精度小数

转账操作员() ----> 字符型(255)

转账备注() ----> 字符型(536870910)

转入账户原始值() ----> 字符型(255)

转出账户原始值() ----> 字符型(255)

转账操作员原始值() ----> 字符型(255)

查询窗体如下

此主题相关图片如下：截图08.jpg
按此在新窗口浏览图片
利用两个时间控件来查时间段内的数据再筛选出符合下列添加到数据
转账类型控件里 所有转账、转出账目、转入账目 
转账名称控件里 所有账户和各个账户名字

当转账类型控件选择 是"所有转账"和转账名称控件 也是选择 "所有账户" 筛选出符合时间内的 转出账户（全部）和转入账户 （全部）数据

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

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

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

该怎么设计呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 21:42:00 [显示全部帖子]

转账交易明细表中有“转出账户”和“转入账户”两个字段 用  转账类型控件 来控制筛选哪个字段， "所有转账” 字段 是指两个字段都筛选的数据； "转出账户” 字段 是指只筛选“转出账户”的数据;"转入账户” 字段 是指只筛选“转入账户”的数据。

具体是筛选出哪些转账名称的数据要根据 选择的转账名称控件中   字符串来决定（"所有账户"是指所有数据）            
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 22:02:00 [显示全部帖子]

蓝老师不一样的  因为 "转出账户” 还是"转入账户” 字段都有自己的账户名称？比如要筛选 "转出账户” 字段中所有数据时，"转入账户” 字段可以为别的数据比如“工商银行”‘光大银行’等待，反之要筛选 "转出账户” 字段中某一个数据的字段时比如“工商银行”‘光大银行’等待，"转入账户” 字段也可以是 所有数据，
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 22:15:00 [显示全部帖子]

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
按此在新窗口浏览图片


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

[此贴子已经被作者于2020/3/13 22:28:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：2007 积分：12794 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/3/13 22:53:00 [显示全部帖子]

经过测试，不对
根据图示转出账户应该是建设银行信用卡现在却显示转入账户是建设银行信用卡

图片点击可在新窗口打开查看此主题相关图片如下：截图14.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 12 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.06641 秒, 5 次数据查询