回 帖 发 新 帖 刷新版面

主题:请教有关grid中的回车问题

在表单里插入一个grid,可以数据改变修改表里的值,但一般我们打回车的时候,只能是横向跳到下一单元里,请教高手,用什么命令可以回车纵向跳到下一单元格里?

回复列表 (共7个回复)

沙发

譬如只在姓名这列回车下跳到只一个记录,请教请教!

板凳

在.grid1.column2.text1.valid事件里
with this.Parent.Parent
.ActivateCell(.RelativeRow+1,.RelativeColumn)
endwith

3 楼


谢谢,我试试

4 楼


不好意思,我在你说的.grid1.column2.text1.valid写入你的那段话了,可还是不行,请教下是什么原因 啊?

5 楼

确实是非常抱歉,经过试验后,确实是存在问题。
但到底为什么,我也没搞清楚。
因为我之前的项目的确是实现了的,但我那个GRID是锁定了某些列,开放了某些列,
至于关键差别在什么地方,请愿谅我也不知道。
我在代码中加入了messagebox( )可以确认代码是被执行过的,但结果为什么不如所料呢?

6 楼

不管怎样,还是谢谢你,我再去找找、问问

7 楼

我确实没弄明白到底问题发生在什么地方,
不过我发现,把代码写在.grid1.column2.text1.KeyPress事件中就获得了解决.

LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
  NODEFAULT 
  with this.Parent.Parent
  .ActivateCell(.relativerow+1,.relativecolumn)
  ENDWITH
ENDIF

我来回复

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