| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 筛选提示 (http://www.foxtable.com/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 奇怪!那次贴帖子的时候我也是这么做的,但是出来就是一条已筛选出来的提示,没有筛选到的,也提示筛选到了. |