筛选数据时弹出错误提示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3257人关注过本帖树形打印复制链接主题：筛选数据时弹出错误提示

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：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

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 16:27:00 [显示全部帖子]

多余的单引号都看不到么

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 17:18:00 [显示全部帖子]

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 20:04:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/1284.htm

贴完整代码

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 20:30:00 [显示全部帖子]

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

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 21:23:00 [显示全部帖子]

后面2种情况没看懂

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

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

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 21:51:00 [显示全部帖子]

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

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 22:12:00 [显示全部帖子]

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

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：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

有点蓝

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107861 积分：548662 威望：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 下一页

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