currenttable.Select(0,2) 是包括隐藏列吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → currenttable.Select(0,2) 是包括隐藏列吗？

共有17206人关注过本帖树形打印复制链接主题：currenttable.Select(0,2) 是包括隐藏列吗？

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40785 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2010/4/8 19:49:00 [显示全部帖子]

这里的2指的是列位置，隐藏与否都不应该改变，不是狐表的问题，想一想就知道为什么！

dim a as Integer
For Each c As Col In currenttable.Cols
    if c.Index <= 2
        if c.Visible = false
            a = a +1
        end if
    end if
Next
currenttable.Select(0,a+2)

程兴刚

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

加好友

发短信

等级：超级版主帖子：7258 积分：40785 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2010/4/8 20:23:00 [显示全部帖子]

当2设定的值过大，在a+2大于最后列位置时，会报错，可以这样避免：

dim a as Integer
dim b as Integer
For Each c As Col In currenttable.Cols
    if c.Visible = true
        if c.Index <= 8
            a = a +1
        end if
    else
        b = b +1
    end if
Next
if a+b < currenttable.Cols.Count
    currenttable.Select(0,a+8)
else
    MessageBox.show("对不起,指定列大于总列数")
    currenttable.Select(0,0)
end if

下一主题 >> << 上一主题

主题：currenttable.Select(0,2) 是包括隐藏列吗？