主题：如何获得子表的父表名称？

各位老师，

当焦点在子表上时，如何得到其父表的名称？即当前的CurrentTable是子表，其父表要怎么表示？

谢谢！

For Each re As Relation In Relations
    Output.Show("名称:" & Re.Name)
    Output.Show("父表:" & Re.ParentTable.Name)
    Output.Show("父表关联列:" & Re.ParentColumn.Name)
    Output.Show("子表:" & Re.ChildTable.Name)
    Output.Show("子表关联列:" & Re.ChildColumn.Name)
Next

Dim t As Table = CurrentTable
If t.IsRelation '如果是关联表
    Dim nm As String = t.Name.SubString(0,t.name.LastIndexOf("."))
    output.show(nm) '显示父表名称
End If

谢谢两位大师！