以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关联表显示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49743)

--  作者:yifan3429
--  发布时间:2014/4/23 15:19:00
--  关联表显示问题

目录和多表有关联 

立面的类容对应不同的子表

现在我需要结决一个问题就是

 

我的鼠标单击目录内容时  对应的子表就会是当前的显示关联表

 

高手请支招  怎样解决


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140423145953.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/4/23 15:21:00
--  
能否说具体一点.是根据选择的列.显示关联表,这个意思吗?
--  作者:yifan3429
--  发布时间:2014/4/23 15:24:00
--  

附上附件  请老师指教

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者: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