如何判断动态数组中有无成员？

[virtualboy]

例：
Dim strTemp() as string


Private sub aa()
......
如何在使用这个数组前，判断其中有无成员？
......
end sub

[virtualboy]

Sorry,我的数组是结构数组。
Dim typTemp() as TYPE_ROAD_INFO

[zhoushaoj]

用 ubound(strTemp)可以得到数组上限
lbound(strTemp)可得到下限
但如果没有元素就会返回一个错误 错误号是9
用on error 就可以捕捉到这个错误 不就可以判断出有没有元素啦

[Jneu]

Dim strTemp() As String

Private Sub Command1_Click()
ReDim strTemp(1) As String
On Error GoTo chkerr

If UBound(strTemp) Then
MsgBox "OK"
End If
Exit Sub
chkerr:
MsgBox "NO"
End Sub

[virtualboy]

注意： 我不是要产生一个异常，过程中还有后续代码要执行！！！

[zhoushaoj]

回复人：　Jneu(沧海桑田)　(2001-11-28 10:55:07) 得0分
Dim strTemp() As String

Private function kk(a)

On Error GoTo chkerr

If UBound(strTemp) Then
kk="ok"
End If
Exit function
chkerr:
kk="NO"
End function
老大 这回不就行了
这个函数就能判断有没有元素了

[virtualboy]

有人吗？

[virtualboy]

这个问题没人答。

[seaboard]

up
如果不用on error怎么做？？

[blp]

Dim s As Variant
If IsEmpty(s) Then
MsgBox "数组未初始化"
Else
MsgBox "数组已初始化"
End If
ReDim s(1)
If IsEmpty(s) Then
MsgBox 数组未初始化
else
MsgBox "数组已初始化"
End If

[seaboard]

blp(★★★)　
要求是数组
也就是先定义数组
dim s()
并非判断之后再定义
不用on error
该如何判断呢

[blp]

Dim s As Variant不行吗，
为什么非要dim s()这样定义呢？
Dim s As Variant这句话我就认为是定义一个数组，难道不可以？

[lishush]

自己写一个函数：
Private Function CLUbound() As Integer
On Error GoTo myError

If UBound(sT) >= 0 Then
CLUbound = UBound(sT)
End If
Exit Function

myError:
CLUbound = -1 '未赋值
End Function

[superlight]

if Join(你的动态数组） & "" ="" then

空数组
End if