在筛选出来的可见表上在筛选，如何实现？谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在筛选出来的可见表上在筛选，如何实现？谢谢

共有13636人关注过本帖树形打印复制链接主题：在筛选出来的可见表上在筛选，如何实现？谢谢

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2011/12/31 18:47:00 [只看该作者]

Dim A As String = e.Form.Controls("ComboBox1").Value
Dim B As String = e.Form.Controls("ComboBox2").Value
Dim A1 As Long = CInt(A)
Dim B1 As Long = CInt(B)
If e.Form.Controls("ComboBox1").Value IsNot Nothing And e.Form.Controls("ComboBox2").Value IsNot Nothing Then
Tables("表C").Filter = "[序号] = " & A1 & " And [序号1] = " & B1
Else
Dim Filter As String
If e.Form.Controls("ComboBox1").Value IsNot Nothing And e.Form.Controls("ComboBox2").Value Is Nothing   Then
    Filter = "序号 = " & e.Form.Controls("ComboBox1").Value
End If
If e.Form.Controls("ComboBox2").Value IsNot Nothing And e.Form.Controls("ComboBox1").Value Is Nothing    Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = "序号1 = " & e.Form.Controls("ComboBox2").Value
End If
If Filter > "" Then
    If Tables("表C").Filter > "" Then
        Filter = Filter & " And (" & Tables("表C").Filter & ")"
    End If
    Tables("表C").Filter = Filter
End If
End If

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2011/12/31 18:47:00 [只看该作者]

这样达到目的了

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2011/12/31 18:48:00 [只看该作者]

谢谢

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2011/12/31 18:48:00 [只看该作者]

帮助有些地方就是让人看不懂，还是面对实际事务才好。

雨中的泪

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

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2012/1/3 11:02:00 [只看该作者]

Dim Filter As String
If e.Form.Controls("ComboBox1").Value IsNot Nothing Then
    Filter = "序号 = " & e.Form.Controls("ComboBox1").Value
End If
If e.Form.Controls("ComboBox2").Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = "序号1 = " & e.Form.Controls("ComboBox2").Value
End If
If e.Form.Controls("ComboBox3").Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = "序号2 = " & e.Form.Controls("ComboBox3").Value
End If
If e.Form.Controls("ComboBox4").Value IsNot Nothing Then
    If Filter > "" Then
        Filter = Filter & " And "
    End If
    Filter = "序号3 = " & e.Form.Controls("ComboBox3").Value
End If
If Filter > "" Then
    If Tables("表C").Filter > "" Then
        Filter = Filter & " And (" & Tables("表C").Filter & ")"
    End If
    Tables("表C").Filter = Filter
End If