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

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

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

请看附件中的照片阿。

 参考

http://www.foxtable.com/webhelp/scr/1137.htm

http://www.foxtable.com/webhelp/scr/1058.htm

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

 比如

Dim str As String = DataTables("子表").GetComboListString("报价单号", "子表各种条件")
str = str.Replace("|", "\',\'")
Tables("父表").Filter = "报价单号 in (\'" & str & "\')"

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

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

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

Dim Filter1 As String = "1=1"
Dim Filter2 As String = "1=1"
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价单号")
    If .Value IsNot Nothing Then
        Filter1 &= " and 报价单号 = \'" & .Value & "\'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价人")
    If .Value IsNot Nothing Then
        Filter1 &= " and 报价人 = \'" & .Value & "\'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_客户简称")
    If .Value IsNot Nothing Then
        Filter1 &= " and 客户简称=\'" & .Value & "\'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价日期1")
    If .Value IsNot Nothing Then
        Filter1 &= " and 报价日期 >=#" & .Value & "#"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_报价日期2")
    If .Value IsNot Nothing Then
        Filter1 &= " and 报价日期 <=#" & .Value & "#"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_材质")
    If .Value IsNot Nothing Then
        Filter2 &= " and 材质 = \'" & .Value & "\'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_产品类型")
    If .Value IsNot Nothing Then
        Filter2 &= "and 产品类型 =\'" & .Value & "\'"
    End If
End With
With RibbonTabs("报价管理")("历史报价查询").Items("txt_产品")
    If .Value IsNot Nothing Then
       
        Filter2 &= "and 产品类型  Like \'%" & .Value & "%\'"
    End If
End With
Dim str As String = DataTables("国内报价单明细表").GetComboListString("报价单号", filter2)
str = str.Replace("|", "\',\'")

Tables("国内报价单表").Filter = Filter1 & " and 报价单号 in (\'" & str & "\')"
str = DataTables("国内报价单表").GetComboListString("报价单号", Tables("国内报价单表").Filter)
str = str.Replace("|", "\',\'")
Tables("国内报价单明细表").Filter = Filter2 & " and 报价单号 in (\'" & str & "\')"

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