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

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

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

yangming

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

加好友

发短信

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

Post By：2009/6/20 11:40:00 [显示全部帖子]

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

yangming

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

主题：筛选提示