以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获得子表的父表名称？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27068)
--  作者：zpx_2012
--  发布时间：2012/12/21 0:32:00
--  如何获得子表的父表名称？

各位老师，

 

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

 

谢谢！
--  作者：blackzhu
--  发布时间：2012/12/21 7:14:00
--  

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
--  作者：狐狸爸爸
--  发布时间：2012/12/21 9:09:00
--  

Dim t As Table = CurrentTable
If t.IsRelation \'如果是关联表
    Dim nm As String = t.Name.SubString(0,t.name.LastIndexOf("."))
    output.show(nm) \'显示父表名称
End If
--  作者：zpx_2012
--  发布时间：2012/12/21 11:53:00
--  

谢谢两位大师！