以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何用代码创建表视图？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3068)
--  作者：baoxyang
--  发布时间：2009/6/9 10:28:00
--  如何用代码创建表视图？
我需要动态显示每表不同列数据，如何创建表视图？请老大指点！
--  作者：狐狸爸爸
--  发布时间：2009/6/9 10:29:00
--  
直接设置某列的Visible属性即可：

Tables("表").Cols("列").Visible = ？
--  作者：baoxyang
--  发布时间：2009/6/9 11:15:00
--  
列名是变量，如何设置为隐藏呀。
--  作者：yangming
--  发布时间：2009/6/9 11:22:00
--  

Visible

返回或设置列是否可见，设为False，列将被隐藏。

例如隐藏订单表的折扣列：

Tables("订单").Cols("折扣").Visible = False

显示订单表的折扣列：

Tables("订单").Cols("折扣").Visible = True
--  作者：baoxyang
--  发布时间：2009/6/9 11:31:00
--  

如何取得某表中显示的列列名称，及隐藏的列的列名称？
--  作者：baoxyang
--  发布时间：2009/6/9 11:32:00
--  

如何取得某表中显示的列列名称，或者隐藏的列的列名称？
--  作者：baoxyang
--  发布时间：2009/6/9 11:35:00
--  

假如表每列隐藏后，是否在未重新加载表之前是不会在显示了吗？
--  作者：狐狸爸爸
--  发布时间：2009/6/9 11:36:00
--  

显示列的名称:


For Each c As Col  in Tables("某表").Cols
     if c.Visible Then

        output.show(c.Name)

    End If

Next

 

 

 
--  作者：yangming
--  发布时间：2009/6/9 11:48:00
--  
另表某列显示:

For Each cl As DataCol In DataTables("表B").DataCols
    Dim dr As DataRow = DataTables("表A").AddNew()
    dr("第一列")=cl.Name
Next
--  作者：baoxyang
--  发布时间：2009/6/9 11:48:00
--  
没有说清楚，我要的目的。所以。。。。。，抱歉！
本人要达到的目的是，在Distlist中动态按照列表框中选中的列进行显示需要表A中的列数据，列表框的选项来自于表A中所有的列，如列表框中选择项为表视图一中的所有列，如列表框选项改变时，表视图一中的显示列也跟着变化。可否达到此目的。