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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 二次筛选求助

共有20421人关注过本帖树形打印复制链接主题：二次筛选求助

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 8:32:00 [显示全部帖子]

Dim Filter As String
If e.Form.Controls("TextBox1").Value > "" Then
    Filter = "颜色 = '" & e.Form.Controls("TextBox1").Value & "'"
End If
If e.Form.Controls("TextBox2").Value > "" Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = "用户 = '" & e.Form.Controls("TextBox2").Value & "'"
End If
If Tables("表A").Filter > "" Then
    Filter = Filter & " And " & Tables("表A").Filter
End If
Tables("表A").Filter = Filter

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 8:47:00 [显示全部帖子]

以下是引用lihe60在2011-5-10 8:46:00的发言：
生成一个临时表。想用的时候把这个临时表调出来。

歪主意，这届简单的问题，何须如此复杂，看二楼。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 8:48:00 [显示全部帖子]

我给你的就是二次筛选，在现有筛选的基础上再次进行。

[此贴子已经被作者于2011-5-10 8:48:04编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 8:52:00 [显示全部帖子]

如下设置筛选按钮的代码，会更合理：

Dim Value()As String

Dim Filter As String

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

If trv.SelectedNode IsNot Nothing Then

Value = trv.SelectedNode.FullPath.Split("\")

Select Case trv.SelectedNode.Level

Case 0

Filter ="[分类] = '" & Value(0) & "'"

Case 1

Filter ="[分类] = '" & Value(0) & "' And [型号] = '" & Value(1) & "'"

Case 2

Filter ="[分类] = '" & Value(0) & "' And [型号] = '" & Value(1) & "' And [规格] = '" & Value(2) & "'"

End Select

End If

If e.Form.Controls("TextBox1").Value > "" Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = "颜色 = '" & e.Form.Controls("TextBox1").Value & "'"

End If

If e.Form.Controls("TextBox2").Value > "" Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = "用户 = '" & e.Form.Controls("TextBox2").Value & "'"

End If

If Tables("表A").Filter > "" Then

Filter = Filter & " And " & Tables("表A").Filter

End If

Tables("表A").Filter = Filter

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 10:45:00 [显示全部帖子]

看这个：

http://help.foxtable.com/topics/1988.htm

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 10:54:00 [显示全部帖子]

保存：
http://help.foxtable.com/topics/1974.htm

打开：
http://help.foxtable.com/topics/1975.htm

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 11:02:00 [显示全部帖子]

呵呵，选择文件名，请分别参考：

http://help.foxtable.com/topics/0328.htm

http://help.foxtable.com/topics/0329.htm

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 11:24:00 [显示全部帖子]

这就对了，我要是直接公开，你怎么会掌握这两个对话框的用法呢？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 11:45:00 [显示全部帖子]

贴出你写的代码，我帮你看看问题在什么地方。

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/10 14:35:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "文本文件|*.foxtr" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
      Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
         trv.Nodes.Clear()
        trv.Load(dlg.FileName)
End If

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

总数 15 1 2 下一页

主题：二次筛选求助