窗口Table列显示代码（改良版） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口Table列显示代码（改良版）

共有20814人关注过本帖树形打印复制链接主题：窗口Table列显示代码（改良版）

baoxyang

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

Post By：2009/8/24 10:32:00 [显示全部帖子]

加入一行代码为改变显示列的位置，
With Args(0)   '数据表
    Dim i as Integer = 0
    For Each c As Col In .Cols
        Dim Vals() As String = Args(1).Split("|")
        c.Visible = Args(1).Contains(c.name & ",")      '加逗号可以保证列名完全匹配
        If c.Visible = True
            .cols(c.name).move(i)
            c.Width = Vals(i).substring(Vals(i).indexof(",")+1)
            i = i + 1
        End If
    Next
End With
红色部分，怎么不生效呢？目的为，把显示列的位置进行调整，请老大看看，这样是否写错了？