我想实现：窗口中表的“作为副本”设定为True时，也能按钮查询

如果我在“添加报价明细”窗口中“物流报价”表，在窗口的查询按钮设定如下代码，这时“添加报价明细”窗口中“物流报价”表没有变化，但是我把“物流报价”设为非附表时，可以查询。

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户名称 = \'" & .Value & "\'"
    End If
End With
If Filter > "" Then
    Tables("物流报价").Filter = Filter
End If

由于“物流报价”表查询结束后，还要添加到其他表，所以必须写如下代码，

Tables("客户信息.订单明细").Current("单价T") = e.Table.Current("单价T")
Tables("客户信息.订单明细").Current("汽车种类") = e.Table.Current("汽车种类")
Tables("客户信息.订单明细").Current("用户名称") = e.Table.Current("用户名称")
Tables("客户信息.订单明细").Current("用户代码") = e.Table.Current("用户代码")
Tables("客户信息.订单明细").Current("运输形式") = e.Table.Current("运输形式")
Tables("客户信息.订单明细").Current("特殊注意事项") = e.Table.Current("特殊注意事项")
Forms("添加订单明细").Close

 副本表，必须这样写

If Filter > "" Then
    e.Form.Controls("Table1").Table.Filter = Filter
End If