以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关联表显示问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49743)
--  作者：Bin
--  发布时间：2014/4/23 15:21:00
--  
能否说具体一点.是根据选择的列.显示关联表,这个意思吗?
--  作者：Bin
--  发布时间：2014/4/23 15:27:00
--  
你这个有何意义? 直接一个表显示就完了啊.
--  作者：有点甜
--  发布时间：2014/4/23 16:06:00
--  

 简单做一下吧。写到currentchanged事件

 

Dim gls() As String = {"表B", "表C"}
If e.Table.Current IsNot Nothing Then
    For Each gl As String In gls
        If e.Table.Current.DataRow.GetChildRows(gl).Count > 0 Then
            For Each g As String In gls
                Tables(e.Table.Name & "." & g).Visible = False
            Next
            Tables(e.Table.Name & "." & gl).Visible = True
            Exit For
        End If
    Next