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