vfp中输代码时,回车的代码是什么

以下是本人的一段代码，希望能有所参考。

LPARAMETERS nKeyCode, nShiftAltCtrl

Smxx=Thisform.Yseditbox1.Value

If nKeyCode=13 AND LEN(ALLTRIM(Smxx))>10

Sm0=Smxx &&提取扫描信息

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm1=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm1)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm2=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm2)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm3=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm3)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm4=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm4)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm5=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm5)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm6=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm6)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm7=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm7)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm8=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm8)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm9=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm9)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm10=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm0=Left(Sm0,LEN(Sm0)-LEN(Sm10)-1)

Sm=SUBSTR(Sm0, RAT(";", Sm0))

Sm11=Right(Sm,LEN(SUBSTR(Sm0, RAT(";", Sm0)))-1)

Sm12=Left(Sm0,LEN(Sm0)-LEN(Sm11)-1)

SELECT Bhzhb

LOCATE FOR Xh1=VAL(RIGHT(Sm7,LEN(Sm7)-5))

Sm7=Mc

SELECT Qcphb

LOCATE FOR Xh1=VAL(RIGHT(Sm6,LEN(Sm6)-5))

Sm6=Cph

SELECT Cyksb

LOCATE FOR Xh1=VAL(RIGHT(Sm5,LEN(Sm5)-5))

Sm5=Ks

SELECT Ggxhb

LOCATE FOR Ggh=VAL(RIGHT(Sm8,LEN(Sm8)-5))

Sm8=Ggxh

SELECT Clmcb

LOCATE FOR Xh2=VAL(RIGHT(Sm9,LEN(Sm9)-5))

Sm9=Clmc

SELECT Sglcb

LOCATE FOR Lch=VAL(RIGHT(Sm10,LEN(Sm10)-5))

Sm10=Lc

SELECT Gcbwb

LOCATE FOR Bwh=VAL(RIGHT(Sm11,LEN(Sm11)-5))

Sm11=Bwmc

SELECT Gdmcb

LOCATE FOR Xh3=VAL(RIGHT(Sm12,LEN(Sm12)-5))

Sm12=Gdmc

SELECT Gzjd

An=Xh

IF An=99

An=0

ENDIF

APPEND BLANK

REPLACE Xh WITH An+1, Erwm WITH Smxx, Smsj WITH DATETIME(), Bhz WITH Sm7, ;

Cph WITH Sm6, Fl WITH VAL(RIGHT(Sm4,LEN(Sm4)-5)), ;

Fhd WITH VAL(RIGHT(Sm3,LEN(Sm3)-5)), ;

Fhsj WITH RIGHT(Sm2,LEN(Sm2)-5), Dy WITH VAL(RIGHT(Sm1,LEN(Sm1)-5))

SELECT Xxzy

REPLACE GzFl WITH GzFl+Gzjd.Fl, Ks WITH Sm5, Ggxh WITH Sm8, Clmc WITH Sm9, ;

Sglc WITH Sm10, Bwmc WITH Sm11, Gdmc WITH Sm12

Dimension N(2*R)

Aend=INT(R*GzFl/Sjfl)

IF Aend>R

REPLACE Cgfl1 WITH Gzfl-Sjfl

Cgl1=100*Cgfl1/Sjfl

Thisform.Yslabel11.Caption="按设计超灌率："+ALLTRIM(STR(Cgl1,6,2))+"%"

IF Cgl1>8.5

Thisform.Yslabel11.ForeColor=RGB(255,0,0)

ENDIF

IF Gzfl-Scfl>0

REPLACE Cgfl2 WITH Gzfl-Scfl

Cgl2=100*Cgfl2/Scfl

Thisform.Yslabel16.Caption="按实测超灌率："+ALLTRIM(STR(Cgl2,6,2))+"%"

IF Cgl2>8.5

Thisform.Yslabel16.ForeColor=RGB(255,0,0)

ENDIF

ENDIF

Aend=R

ENDIF

IF Aend

鹏仔微信 15129739599 鹏仔QQ344225443 鹏仔前端 pjxi.com 共享博客 sharedbk.com