1,488
社区成员
发帖
与我相关
我的任务
分享初始化问题
Type abcd
str1 As String
str2 As String
int1 As Integer
End Type
Public Test() As abcd
如何判断数组Test是否初始化？
str1 As String
str2 As String
int1 As Integer
End Type
Public Test() As abcd
如何判断数组Test是否初始化？
...全文
请发表友善的回复…
发表回复
无所不能的名侦探 2005-04-22
- 打赏
- 举报
最好不要使用UBound，
http://dev.csdn.net/article/24/24016.shtm
类型不适合，有没有更好的办法？
http://dev.csdn.net/article/24/24016.shtm
类型不适合，有没有更好的办法？
留下些什么 2005-04-22
- 打赏
- 举报
http://dev.csdn.net/article/24/24016.shtm
Mister 2005-04-22
- 打赏
- 举报
用错误陷阱判断吧。
'标准模块中。
Public Function IsEmpArray(ByRef NewArray() As Variant) As Boolean
On Error Goto Err_EmpArray
IsEmpArray=UBound(NewArray))
IsEmpArray=True
Exit Function
Err_EmpArray:
IsEmpArray=False
End Public
'标准模块中。
Public Function IsEmpArray(ByRef NewArray() As Variant) As Boolean
On Error Goto Err_EmpArray
IsEmpArray=UBound(NewArray))
IsEmpArray=True
Exit Function
Err_EmpArray:
IsEmpArray=False
End Public
