求教!
------解决方案--------------------------------------------------------
方法1:
将 Grid 的 ColumnCount 设为大于0,然后在 Grid 每列的 text1 控件的 keypress 事件加代码Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=13
* Nodefault
Thisform.Command1.SetFocus
Endif
-------------------------
方法2: vfp8.0、9.0
新建一个按钮,如 Command100,其 Visible 属性为 .F.,其 Click 事件代码为:
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode=13
* Nodefault
Thisform.Command1.SetFocus
Endif
然后表单的 Init 事件加代码:
With Thisform.Grid1
For lnI=1 To .ColumnCount
=Bindevent(.Columns(lnI).Text1,'KeyPress',Thisform.Command100,'Click')
Endfor
Endwith