GRID
鐨勪娇鐢ㄦ妧宸?/p>
1.
濡備綍鍦?/p>
GRID
閲屾帶鍒跺洖杞︿簨浠?/p>
鍦?/p>
VFP
閲岋紝
GRID
鐨勯粯璁ゆ帶浠堕兘鏄?/p>
TEXTBOX
锛?/p>
褰㈡垚浜嗕竴涓〃鏍硷紝
浣嗘槸鍦ㄨ繖涓簩缁磋〃閲岃繘琛?/p>
鎿嶄綔鏃讹紝姣忔鎸夊洖杞﹂兘鏄線鍚庝竴涓崟鍏冩牸璺宠浆锛屽綋鍒版渶鍚庝竴鍒楁椂锛?/p>
鍒欑户缁烦鍒扮涓�鍒楋紝
杩涜�?/p>
寰幆锛屾搷浣滃緢涓嶆柟渚裤�?/p>
涓嬮潰璇存槑濡備綍鍦?/p>
GRID
閲岀殑涓�涓垪閲屾寜鍥炶溅浣胯褰曡繛缁線涓嬭烦杞?/p>
锛堟垨鍙互鎵ц鍏朵粬鐨勬搷
浣滐級
锛屽綋璺宠浆鍒版渶鍚庝竴琛屾椂鎵ц鍙︿竴涓搷浣溿�?/p>
锛戙�佸
GRID
鎵�鍦ㄧ殑琛ㄥ崟鏂板灞炴�э細
cur_recn
璁板綍褰撳墠璁板綍鍙?/p>
cur_recc
璁板綍鏈�澶ц褰曞彿
2
銆佸湪琛ㄥ崟鍒濆鍖栵紝鎴栫粰
GRID
浠ユ暟鎹簮鏃讹紝灏卞厛璁＄畻鍑鸿琛ㄧ殑鏈�澶х殑璁板綍鏁帮紝濡備笅锛?/p>
thisform.cur_recc=recc()
涓轰簡涓�娆″緱鍒板綋鍓?/p>
GRID
閲岀殑琛ㄧ殑璁板綍鎬绘暟
3
銆佸湪
GRID
鐨?/p>
AfterRowColChange
浜嬩欢閲屽啓锛?/p>
thisform.cur_recn=recn()
涓轰簡寰楀埌褰撳墠鐨?/p>
GRID
閲岀殑琛ㄧ殑璁板綍鍙?/p>
4
銆佸湪
GRID
閲岀殑鏌愬垪鐨?/p>
TEXT1
鐨?/p>
KEYPRESS
浜嬩欢閲岋細
if nKeyCode = 13
&&
褰撴寜閿负鍥炶溅鏃?/p>
if thisform.cur_recn>=thisform.cur_recc
**--
褰撳綋鍓嶈褰曞ぇ浜庣瓑浜庢渶澶ц褰曟椂锛屽嵆璁板綍宸插埌鏈�鍚庝竴涓椂
thisform.command1.setfocus
**--
浣胯〃鍗曚笂鐨勪竴涓懡浠ゆ寜绾借仛鐒︼紝涔熷嵆鍙互璺冲嚭璇?/p>
GRID
锛?/p>
**--
鑰屾甯哥殑鎿嶄綔寰堥毦浠?/p>
GRID
閲岃烦鍑猴紝鍦ㄨ繖閲屽氨鍙互浣垮湪璁板綍鍒版渶鍚庢椂鐒︾偣璺冲嚭鏉?/p>
else
thisform.cur_recn=recn()
&&
褰撹褰曡繕娌″埌灏炬椂锛屽垯
...
nodefault &&
涓嶅仛浠讳綍鍝嶅簲
keyboard "{dnarrow}" &&
妯℃嫙閿洏涓嬬澶达紝浣胯褰曟寚閽堜笅绉讳竴涓?/p>
endif
endif
浠ヤ笂鎵�璇寸殑锛?/p>
鍙鎸夐敭鐩樹笂鐨勪笂涓嬬澶村嵆鍙交鏄撳仛鍒板湪
GRID
涓Щ鍔ㄦ寚閽堬紝
娌℃湁澶ぇ鐨勬剰涔夈�?/p>
2.
濡備綍瀹炵幇杈撳畬鏁版嵁鍚庢寜鍥炶溅閿紝浣胯〃鏍间腑鐨勭劍鐐硅嚜鍔ㄨ烦鍒颁笅涓�琛?/p>
鍦ㄤ綘瑕佸垽鏂浆鎹㈢殑
GRID
鐨?/p>
鏈�鍚庝竴鍒楃殑
TEXT1
鐨?/p>
keypress:
IF nKeyCode=13
SELECT
浣犵粦瀹氳〃鍚?/p>
nRec=RECNO()
SKIP
IF EOF()
APPEND BLANK &&
鍦ㄨ〃灏惧姞涓�绌鸿褰?/p>
SKIP
&&
璁板綍鎸囬拡鍒?/p>
EOF()
Thisform.grid1.refresh
Thisform.grid1.column1.text1.SetFocus &&
鍒版渶鍓嶉潰
ELSE
GO nRec &&
鍚屼竴琛岋紝涓嶈姝ゅ氨璺充笅涓�鏍?/p>