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