以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3220)
--  作者：blackzhu
--  发布时间：2009/6/20 10:54:00
--  筛选提示
 做一个筛选按钮,筛选到数据后,提示已经筛选到数据,如果没有,就提示没有筛选到数据,我做来做去只能做到筛选到数据的提示.
--  作者：yangming
--  发布时间：2009/6/20 11:40:00
--  
你筛选不到会出现什么现象?是原行数不变?还是一行都没有?
--  作者：blackzhu
--  发布时间：2009/6/20 12:15:00
--  
以下是引用yangming在2009-6-20 11:40:00的发言：
你筛选不到会出现什么现象?是原行数不变?还是一行都没有?

我只想做一个提示,如果筛选不到就出来没有筛选到数据的提示,如果筛选到了就出来已经筛选到的提示,仅此而已.
--  作者：yangming
--  发布时间：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
--  发布时间：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
--  发布时间：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

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