主题：代码建立副本关联

代码这样写

Dim t As Table = Tables("PharmacyBagWelling_Table2")
With Tables("PharmacyBagWelling_Table1")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "报价单编号 = '" & .Current("报价单编号") & "'"
    End If
End With