array() function


G

Guest

I'm trying to stuff a series of string values into an array and I'm missing
something stupid:

Dim tIdents() As Variant, tString as string
Dim i As Integer, j As Integer

If gvString & "" <> "" Then
tIdents = Array(CVar(gvString))
Else
tIdents = Array(CStr(Me.OpenArgs))
End If
' ReDim Preserve tIdents(3)
j = UBound(tIdents)
For i = 0 To j: Debug.Print i & ": " & tIdents(i): Next i
 
Ad

Advertisements

C

Chris2

Kevin Witty said:
I'm trying to stuff a series of string values into an array and I'm missing
something stupid:

Dim tIdents() As Variant, tString as string
Dim i As Integer, j As Integer

If gvString & "" <> "" Then
tIdents = Array(CVar(gvString))
Else
tIdents = Array(CStr(Me.OpenArgs))
End If
' ReDim Preserve tIdents(3)
j = UBound(tIdents)
For i = 0 To j: Debug.Print i & ": " & tIdents(i): Next i

Kevin Ward,

May I ask what is going wrong?


Sincerely,

Chris O.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top