主题：模拟关联表

我按帮助文档里面“用Table控件模拟关联表”的步骤进行操作的。

设置“服务包设置”窗口afterload时间：

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")

与帮助文档唯一不同的是我要关联的父表--服务包名称，跟其他两个表做了两个关联：表服务包名称PO服务明细；表服务包名称PO服务包项目