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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选提示

共有16864人关注过本帖树形打印复制链接主题：筛选提示

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

筛选提示

Post By：2009/6/20 10:54:00 [只看该作者]

做一个筛选按钮,筛选到数据后,提示已经筛选到数据,如果没有,就提示没有筛选到数据,我做来做去只能做到筛选到数据的提示.

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/20 11:40:00 [只看该作者]

你筛选不到会出现什么现象?是原行数不变?还是一行都没有?

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/6/20 12:15:00 [只看该作者]

以下是引用yangming在2009-6-20 11:40:00的发言：
你筛选不到会出现什么现象?是原行数不变?还是一行都没有?

我只想做一个提示,如果筛选不到就出来没有筛选到数据的提示,如果筛选到了就出来已经筛选到的提示,仅此而已.

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/20 14:45:00 [只看该作者]

Dim dr As DataRow
Dim r As Integer = CurrentTable.Rows.Count
Dim Filter As String
With e.Form.Controls("cmbProduct")
dr = DataTables("订单").Find("产品 = '" & .Value & "'")
If dr IsNot Nothing Then '如果找到的话
     Filter = "产品 = '" & .Value & "'"
     MessageBox.Show("已筛选出!", "提示")
Else
MessageBox.Show("没有筛选出来!", "提示")
End If
End With
If Filter > "" Then
    Tables("订单").Filter = Filter
End If

[此贴子已经被作者于2009-6-20 14:52:58编辑过]

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/20 15:03:00 [只看该作者]

这个更好些
Dim dr As DataRow
Dim Filter As String
With e.Form.Controls("cmbProduct")
dr = DataTables("订单").Find("产品 = '" & .Value & "'")
If dr IsNot Nothing Then '如果找到的话
Filter = "产品 = '" & .Value & "'"
Tables("订单").Filter = Filter
Dim r As Integer = CurrentTable.Rows.Count
MessageBox.Show("已筛选出:产品为 "& "'" & .Value & "'" & "数据共" & r & "条", "提示")
Else
MessageBox.Show("没有筛选出来!", "提示")
End If
End With

blackzhu

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

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2009/6/22 13:39:00 [只看该作者]

以下是引用yangming在2009-6-20 15:03:00的发言：
这个更好些
Dim dr As DataRow
Dim Filter As String
With e.Form.Controls("cmbProduct")
dr = DataTables("订单").Find("产品 = '" & .Value & "'")
If dr IsNot Nothing Then '如果找到的话
Filter = "产品 = '" & .Value & "'"
Tables("订单").Filter = Filter
Dim r As Integer = CurrentTable.Rows.Count
MessageBox.Show("已筛选出:产品为 "& "'" & .Value & "'" & "数据共" & r & "条", "提示")
Else
MessageBox.Show("没有筛选出来!", "提示")
End If
End With

奇怪!那次贴帖子的时候我也是这么做的,但是出来就是一条已筛选出来的提示,没有筛选到的,也提示筛选到了.

下一主题 >> << 上一主题

主题：筛选提示