以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教table中光标移动的程序如何写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54858)

--  作者:bzfc57
--  发布时间:2014/8/6 11:24:00
--  请教table中光标移动的程序如何写
请教table中的光标移动的程序如何写,我知道变行(即上下移动)的是CurrentTable.Position = CurrentTable.Position + 1
想问问变列(左右移动)如何写?

--  作者:有点甜
--  发布时间:2014/8/6 11:36:00
--  

右移动

 

CurrentTable.Cols(CurrentTable.ColSel).Move(CurrentTable.ColSel+1)

 

左移动

 

CurrentTable.Cols(CurrentTable.ColSel).Move(CurrentTable.ColSel-1)

 

你要判断一下是否是第一列或者是最后一列


--  作者:bzfc57
--  发布时间:2014/8/6 11:56:00
--  
有问题,连标题都移动了
--  作者:有点甜
--  发布时间:2014/8/6 11:58:00
--  
以下是引用bzfc57在2014-8-6 11:56:00的发言:
有问题,连标题都移动了

 

呃,你说的是数据左移动右移动?这样有什么意义?


--  作者:bzfc57
--  发布时间:2014/8/6 11:59:00
--  
鼠标光标移动而已,不是数据列移动
--  作者:有点甜
--  发布时间:2014/8/6 12:01:00
--  

右移

 

Dim temp As String = CurrentTable.Current(CurrentTable.ColSel)
CurrentTable.Current(CurrentTable.ColSel) = CurrentTable.Current(CurrentTable.ColSel+1)
CurrentTable.Current(CurrentTable.ColSel+1) = temp
CurrentTable.Select(CurrentTable.RowSel ,CurrentTable.ColSel+1)