我表里有一个要输入的字段，有几个固定的值要输入（如姓名=张三；李四）一天要输入张三；李四几十遍，别的名不常有，
能不能把张三设置为F1李四设置为F2（或字母AB或数字12）按F1姓名字段就自动添加张三。
------解决方案--------------------------------------------------------
- SQL code
*---VFP6.0 代码*---TEXT1.KEYPRESSLPARAMETERS nKeyCode, nShiftAltCtrl &&该行是原来就有的DO CASE CASE nKeyCode=-1 && F2键 THISFORM.TEXT1.VALUE="张三" CASE nKeyCode=-2 && F3键 THISFORM.TEXT1.VALUE="李四"ENDCASE
------解决方案--------------------------------------------------------
将表单的 KeyPreview 属性设为 .T.
然后在表单的 KeyPress 事件写代码：
- SQL code
Lparameters nKeyCode, nShiftAltCtrlDo Case Case nKeyCode=28 && F1 Nodefault Thisform.Caption="你按了 F1 键" Case nKeyCode=-1 && F2 Nodefault Thisform.Caption="你按了 F2 键" Case nKeyCode=-2 && F3 Nodefault Thisform.Caption="你按了 F3 键" Case nKeyCode=-3 && F4 Nodefault Thisform.Caption="你按了 F4 键" Case nKeyCode=-4 && F5 Nodefault Thisform.Caption="你按了 F5 键" Case nKeyCode=-5 && F6 Nodefault Thisform.Caption="你按了 F6 键" Case nKeyCode=-6 && F7 Nodefault Thisform.Caption="你按了 F7 键" Case nKeyCode=-7 && F8 Nodefault Thisform.Caption="你按了 F8 键" Case nKeyCode=-8 && F9 Nodefault Thisform.Caption="你按了 F9 键" Case nKeyCode=-9 && F10 Nodefault Thisform.Caption="你按了 F10 键" Case nKeyCode=133 && F11 Nodefault Thisform.Caption="你按了 F11 键" Case nKeyCode=134 && F12 Nodefault Thisform.Caption="你按了 F12 键"Endcase