以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  右一列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48108)
--  作者：qianqian1530
--  发布时间：2014/3/23 14:12:00
--  右一列
..

类似于 下一行。
With Tables("表名")
    .Position = .Position + 1
End With

单击一下按钮，向右移动 一行

比如， 第一列 -> 第二列

默认为 第一列
--  作者：lsy
--  发布时间：2014/3/23 14:55:00
--  

Dim t As Table = Tables("表A")

 

默认第一列：

t.Select(0,0)

 

左一列
If t.ColSel > 0 Then
    t.Select(0,t.ColSel - 1)
End If

 

右一列
If t.ColSel < t.Cols.Count - 1 Then
    t.Select(0,t.ColSel + 1)
End If