7,763
社区成员
发帖
与我相关
我的任务
分享如何判断动态数组是否为空数组
myarray为动态数组，如果动态数组为空数组，则UBound(myarray)提示出错，各位大虾，怎么处理呀？？？？
...全文
请发表友善的回复…
发表回复
chendjin 2004-09-01
- 打赏
- 举报
问题已解决
Private Function CheckArryIsNull(MyArry) As Boolean
Dim UnKnow
On Error Resume Next
UnKnow = MyArry(1, 1)'由于本人确定MyArry一旦不为空，则必为二维数组
CheckArryIsNull = (Err.Number = 9)
Err.Clear
End Function
Private Function CheckArryIsNull(MyArry) As Boolean
Dim UnKnow
On Error Resume Next
UnKnow = MyArry(1, 1)'由于本人确定MyArry一旦不为空，则必为二维数组
CheckArryIsNull = (Err.Number = 9)
Err.Clear
End Function
chendjin 2004-09-01
- 打赏
- 举报
我的问题集中在判断动态数组是否为空数组，而不是判断哪一维？
断出动态数组不为空数组，再断哪一维就好办了。继续讨论，呵呵:)
断出动态数组不为空数组，再断哪一维就好办了。继续讨论，呵呵:)
tztz520 2004-09-01
- 打赏
- 举报
看你要判断哪一维咯.
dim a() as string
redim a(1,2,3)
msgbox ubound(a,1)'如果是0就..
dim a() as string
redim a(1,2,3)
msgbox ubound(a,1)'如果是0就..
chendjin 2004-09-01
- 打赏
- 举报
顶一下
