以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于移动选定行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84890)

--  作者:binabc2004
--  发布时间:2016/5/12 16:00:00
--  关于移动选定行
我想设计一个在表上下移动选定按键,不是把选定行移上移下命令,是上下移动选定行。谢谢大家啦!
--  作者:大红袍
--  发布时间:2016/5/12 16:06:00
--  

向下选取

 

Dim t As Table = CurrentTable
t.Select(t.TopRow, 0, t.BottomRow+1, t.cols.Count-1)

 

向上选取

 

Dim t As Table = CurrentTable
t.Select(t.TopRow-1, 0, t.BottomRow, t.cols.Count-1)


--  作者:binabc2004
--  发布时间:2016/5/13 15:20:00
--  
谢谢!大经袍老师指导,我的意思不是向上一直到向下选取所有内容。我的意思是:一个表的列内容为由上到下1至10,我想设计上键,我开始选定10这个数,我一按上键就到了9数字内。


--  作者:大红袍
--  发布时间:2016/5/13 15:25:00
--  
Dim t As Table = CurrentTable
t.Position = t.Position - 1

--  作者:binabc2004
--  发布时间:2016/5/13 15:31:00
--  
谢谢,大红袍老师!经认真读写大红袍老师代码,发现解决方案。

向下选取

 

Dim t As Table = CurrentTable
t.Select(t.TopRow-1, 0)


向上选取

 

Dim t As Table = CurrentTable
t.Select(t.TopRow+1, 0)


--  作者:大红袍
--  发布时间:2016/5/13 15:33:00
--  

4楼代码也可以。


--  作者:binabc2004
--  发布时间:2016/5/14 7:31:00
--  
谢谢!大红袍老师指导。
我发现我的代码:

向下选取

Dim t As Table = CurrentTable
t.Select(t.TopRow-1, 0)

到最后一行之后就会出现错误代码,请问是什么原因。
Invalid parameters for Select method.

我使用大红袍老师最后代码就没有问题。

--  作者:Hyphen
--  发布时间:2016/5/14 10:02:00
--  
Position 允许负值,Select参数不能有负值