如何测试数组是否存在 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何测试数组是否存在

标题：如何测试数组是否存在

只看楼主

ilikeflash

等　级：论坛游侠
威　望：3
帖　子：148
专家分：186
注　册：2011-4-6

第 11 楼

得分:0

谢谢各位，偶就是要这个，多谢

2012-06-13 08:50

ilikeflash

等　级：论坛游侠
威　望：3
帖　子：148
专家分：186
注　册：2011-4-6

第 12 楼

得分:0

多谢哈，这样这样，用TonyDeng版主的提示，我们都应该知道我们的数组第一个元素的类型呀，所以可以用vartype(arrayname)==**来判定该数组是否存在呀。**是数组第一个元素的数据类型。

2012-06-13 10:07

klise

等　级：新手上路
帖　子：3
专家分：0
注　册：2013-12-19

第 13 楼

得分:0

可用type()函数判断，加上参数“1”。

例如：

X=10
? type('X',1) && 由于变量 X 不是数组，所以返回“U”

dime X(10)
? type('X',1) && 变量 X 是数组，这时返回“A”

2013-12-19 07:06

cfcmo

等　级：新手上路
帖　子：1
专家分：0
注　册：2016-11-29

第 14 楼

得分:0

FUNCTION IsArr(MyArr)  && MyArr 需要加引号作为参数传送
   LOCAL IsType
   IsType='OK'
   TRY
         IsType=VARTYPE(ALEN(&MyArr,1))
    CATCH TO oErr
        IsType='ERR'
    FINALLY
           DoOther=NULL
    ENDTRY
    RETURN IIF(IsType=='ERR',.F.,.T.)
ENDFUNC

2016-11-29 19:41

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-371399-1-1.html