主题：模拟关联表

如果服务包id列是字符型，应该：

Dim t As Table = Tables("服务包设置_Table2")
With Tables("服务包名称")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "服务包ID = '" & .Current("服务包ID") & "'"
    End If
End With
t.OpenView("default")