| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1383 人关注过本帖
标题:[求助]自定义函数的形参引用数组元素时出现“无效的下标引用”
只看楼主 加入收藏
mmhunter
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2005-3-4
收藏
 问题点数:0 回复次数:1 
[求助]自定义函数的形参引用数组元素时出现“无效的下标引用”
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

搜索更多相关主题的帖子: 形参 函数 定义 元素 标引 
2006-01-08 18:04
leeping
Rank: 2
等 级:新手上路
威 望:3
帖 子:49
专家分:0
注 册:2005-12-26
收藏
得分:0 

我想你用FOR循环的起始值没设好,虽然只循环3次,但最后I的值不是你想的1\2\3,而是234
但你只定义到3,所以下标出界,请将I=1改为I=0试试


2006-01-10 11:57
快速回复:[求助]自定义函数的形参引用数组元素时出现“无效的下标引用”
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016489 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved