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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

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

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2673 人关注过本帖

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

只看楼主加入收藏

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

快速回复：如何测试数组是否存在