标题：筛选提示

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

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

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

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

这个更好些
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

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