主题：[求助]在自定义菜单功能区实现表的动态筛选条件如何实现

我现在想在功能区中实现  表的筛选功能，请问如何实现？

 

1）就是点击查询按钮的时候 可以 根据 文本框 中的条件 筛选出符合条件的 行

2）还有就是这个一个子表 和 父表 ， 如何实现：A： 根据子表的列进行条件查询时，根据子表的查询结果显示相应父表内容  B: 根据父表的列进行条件查询时，如何根据父表的查询结果显示相应子表内容

 

 

 

 

请看附件中的照片阿。

此主题相关图片如下：qq截图20170213182214.jpg

如果查询的条件里面有子表的列，怎么实现父表根据子表的查询结果进行显示

不太懂。 查询条件里面有子表 的列， 也有父表的列。

 

还有，请看以下代码哪里出错。

 

Dim Filter As String
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价单号")
    If .Value IsNot Nothing Then
        Filter = "{国内报价单表}.报价单号 = '" & .Value & "'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价人")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报价人 = '" & .Value & "'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_客户简称")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户简称='" & .Value & "'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价日期1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报价日期 >=#" & .Value & "#"
   End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价日期2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "报价日期 <=#" & .Value & "#"
   End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_材质")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "{国内报价单明细表}.材质 = '" & .Value & "'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_产品类型")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "{国内报价单明细表}.产品类型 ='" & .Value & "'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_产品")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "{国内报价单明细表}.产品类型  Like ' & .Value & '   "
    End If
End With

Tables("国内报价单表").Filter =Filter
Tables("国内报价单明细表").Filter =Filter

此主题相关图片如下：qq截图20170214115623.jpg

运行的时候出错，不知道问题在哪里？

 

此主题相关图片如下：qq截图20170214162113.jpg