[求助]自定义函数的形参引用数组元素时出现“无效的下标引用”
DIMENSION FS(3) &&分数FS(1)='YSYZF'
FS(2)='ZHZF'
FS(3)='ZF'
DIMENSION MC(3) &&名次
MC(1)='YSYMC'
MC(2)='ZHMC'
MC(3)='BMC'
FOR I=1 TO 3 STEP 1
DO PX(FS(I),MC(I)) &&在此处出现了“无效的下标引用”错误提示,该如何解决,请指教一二,谢谢!!
ENDFOR
&&&&&&&&&&&&&&&&&&&&&&&&&&自定义函数
FUNCTION PX(FS1,MC1)
INDEX ON &FS1 TAG '&FS1' DESC
SET ORDER TO TAG '&FS1'
GO TOP
P=1
Q=0
REPLACE &MC1 WITH P
TEMP=&FS1
SKIP
DO WHILE NOT EOF()
IF TEMP<>&FS1
REPLACE &MC1 WITH P+Q+1
Q=0
ELSE
REPLACE &MC1 WITH P
Q=Q+1
ENDIF
SKIP
TEMP=&FS1
P=P+1
ENDDO
DELETE TAG '&FS1'
ENDFUNC