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