Foxtable(狐表)用户栏目专家坐堂 → 如何用代码创建表视图?


  共有12910人关注过本帖树形打印复制链接

主题:如何用代码创建表视图?

帅哥哟,离线,有人找我吗?
baoxyang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
如何用代码创建表视图?  发帖心情 Post By:2009/6/9 10:28:00 [只看该作者]

我需要动态显示每表不同列数据,如何创建表视图?请老大指点!


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2009/6/9 10:29:00 [只看该作者]

直接设置某列的Visible属性即可:

Tables("表").Cols("列").Visible = ?

 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/6/9 11:15:00 [只看该作者]

列名是变量,如何设置为隐藏呀。


 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2009/6/9 11:22:00 [只看该作者]

Visible

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

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

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

显示订单表的折扣列:

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


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/6/9 11:31:00 [只看该作者]

如何取得某表中显示的列列名称,及隐藏的列的列名称?


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/6/9 11:32:00 [只看该作者]

如何取得某表中显示的列列名称,或者隐藏的列的列名称?


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/6/9 11:35:00 [只看该作者]

假如表每列隐藏后,是否在未重新加载表之前是不会在显示了吗?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By: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
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23146 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2009/6/9 11:48:00 [只看该作者]

没有说清楚,我要的目的。所以。。。。。,抱歉!
本人要达到的目的是,在Distlist中动态按照列表框中选中的列进行显示需要表A中的列数据,列表框的选项来自于表A中所有的列,如列表框中选择项为表视图一中的所有列,如列表框选项改变时,表视图一中的显示列也跟着变化。可否达到此目的。


 回到顶部
总数 19 1 2 下一页