发表于:2003-06-02 10:46:00
楼主
YYY=StrLeft(XXX.DESC,1);
E=StrToInt(StrMid(XXX.DESC,1,1));
F=StrToInt(StrMid(XXX.DESC,2,2));
IF YYY=="D" THEN
SWITCH (E)
CASE 1:
MsgBox("敌对信号机开放");
CASE 2:
MsgBox("道岔四开");
CASE 3:
MsgBox("防护信号灯不能开放");
CASE 4:
MsgBox("进路无法解锁");
CASE 5:
MsgBox("轨道不空闲");
CASE 6:
MsgBox("所选按钮不能办理进路");
CASE 7:
MsgBox("无法单操道岔");
CASE 8:
MsgBox("轨道锁闭失败");
CASE 9:
MsgBox("道岔没有单操到位");
ENDSWITCH
ELSE
IF YYY<>"D"&&E==0 THEN
SWITCH (F)
CASE 01:
DC1_3.DESC=XXX.DESC;
CASE 02:
DC2_4.DESC=XXX.DESC;
CASE 05:
DC5.DESC=XXX.DESC;
CASE 10:
DC10.DESC=XXX.DESC;
CASE 09:
DC7_9.DESC=XXX.DESC;
CASE 08:
DC6_8.DESC=XXX.DESC;
ENDSWITCH
ELSE IF YYY<>"D"&&E==1 THEN
SWITCH (F)
CASE 90: XXJJ.DESC=XXX.DESC;
CASE 03: 3DG.DESC=XXX.DESC;
CASE 57: 5_7DG.DESC=XXX.DESC;
CASE 30: 3G.DESC=XXX.DESC;
CASE 11: IG.DESC=XXX.DESC;
CASE 60: 6_10DG.DESC=XXX.DESC;
CASE 04: 4DG.DESC=XXX.DESC;
CASE 15: XXLQ.DESC=XXX.DESC;
CASE 91: SXLQ.DESC=XXX.DESC;
CASE 13: IIAG.DESC=XXX.DESC;
CASE 01: 1DG.DESC=XXX.DESC;
CASE 09: 9DG.DESC=XXX.DESC;
CASE 12: IIG.DESC=XXX.DESC;
CASE 08: 8DG.DESC=XXX.DESC;
CASE 02: 2DG.DESC=XXX.DESC;
CASE 36: IIBG.DESC=XXX.DESC;
CASE 17: SXJJ.DESC=XXX.DESC;
ENDSWITCH
ELSE
SWITCH (F)
CASE 03: D3.DESC=XXX.DESC;
CASE 01: D1.DESC=XXX.DESC;
CASE 13: S3.DESC=XXX.DESC;
CASE 11: SI.DESC=XXX.DESC;
CASE 12: SII.DESC=XXX.DESC;
CASE 53: X3.DESC=XXX.DESC;
CASE 51: X1.DESC=XXX.DESC;
CASE 52: XII.DESC=XXX.DESC;
CASE 24: D4.DESC=XXX.DESC;
CASE 81: SF.DESC=XXX.DESC;
CASE 22: D2.DESC=XXX.DESC;
CASE 83: S.DESC=XXX.DESC;
ENDSWITCH
ENDIF
ENDIF
ENDIF
系统提示说“发现多余操作数”“SWITH语句出错”
请各位指教!