回 帖 发 新 帖 刷新版面

主题:请教:在回车跳下一行问题

我在Grid的BeforeRowColChange事件加入了以下的代码
IF m.nColIndex=2
ro1=ThisForm.Grid1.ActiveRow 
co1=ThisForm.Grid1.ActiveColumn 
ThisForm.Grid1.ActivateCell(ro1+1,co1) 
ThisForm.Grid1.Refresh 
NODEFAULT 
ENDIF 

定位在第2列,回车可以下跳到第2、3列都行,但我的数据表有50个数据,可它只能下跳到20时,就停下了,不再跳了,请高手们给予指点。谢谢在先

回复列表 (共23个回复)

21 楼

你们说来说去,够爽吧?!我的问题还是没解决,要么可以回车不能下跳一行,要么输满位数不能下跳一行,要么下跳了不能用箭头或鼠标点回到上面,咳咳,高手们早点说个方法哦,急!!!

22 楼

回楼上的,可以有一个折衷的办法:除非是让下一列失效:

在.grid1.column3.text1.GotFocus事件里

with this.Parent.Parent
.ActivateCell(.RelativeRow+1,.RelativeColumn-1)
endwith

你试一试就会知道是什么效果了。



回乌鸦,我是主动下岗的。
而且也没感觉尿频尿急的。

23 楼

[quote]你们说来说去,够爽吧?!我的问题还是没解决,要么可以回车不能下跳一行,要么输满位数不能下跳一行,要么下跳了不能用箭头或鼠标点回到上面,咳咳,高手们早点说个方法哦,急!!![/quote]

这么都的朋友再帮助你,你为什么不评分呢!
你在当考官吗?

我来回复

您尚未登录,请登录后再回复。点此登录或注册