Foxtable(狐表)用户栏目专家坐堂 → 窗口中表的格式


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

主题:窗口中表的格式

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/8/19 8:12:00 [显示全部帖子]

Dim s As String
For i As Integer = 0 To Tables("订单情况").Cols.Count -1
    s = s & Tables("订单情况").Cols(i).Name & "|" & Tables("订单情况").Cols(i).Width & "|"
Next
Tables("控制_Table1").SetColVisibleWidth(s.Trim("|"))
For Each c As Col In Tables("控制_Table1").Cols
    c.Visible = Tables("订单情况").Cols(c.Name).Visible
Next


主表和副本表的列顺序一样的代码,放入窗口事件中.

 回到顶部