A股上市公司传智教育(股票代码 003032)旗下技术交流社区北京昌平校区

 找回密码
 加入黑马

QQ登录

只需一步,快速开始

© 不二晨 金牌黑马   /  2019-1-25 09:26  /  1028 人查看  /  1 人回复  /   0 人收藏 转载请遵从CC协议 禁止商业使用本文

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long

dim bytData() as byte
debug.print SafeArrayGetDim(bytdata) '些时 = 0       '数组为空
redim bytdata(任一数)
debug.print  SafeArrayGetDim(bytdata)  '些时= -1  数组有元素,用ubounD不会出错
Erase   bytData
debug.print SafeArrayGetDim(bytdata)  '些时= 0       '些时数组又为空了

所以用if SafeArrayGetDim(bytdata)=0 来判断数组是否为空
---------------------
【转载,仅作分享,侵删】
作者:蔡健常熟
原文:https://blog.csdn.net/Athoncj/article/details/1459812


1 个回复

倒序浏览
奈斯
回复 使用道具 举报
您需要登录后才可以回帖 登录 | 加入黑马