我想实现:窗口中表的“作为副本”设定为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