Jag har en strTest1 som jag splittar och kör
Men i den splittade strängen så är det 4 rader i en databas som innehåller 6 fält.
Jag vill därför köra något sånthär...
Men jag får matrisfel "i" efter första loopen, vad gör jag för fel??
Redim strA(i) ...osv...
i = 0
For x = 0 To uBound(strTest1 )
strA(i) = strTest1 (x)
x = x + 1
strB(i) = strTest1 (x)
x = x + 1
strC(i) = strTest1 (x)
x = x + 1
strD(i) = strTest1 (x)
x = x + 1
strE(i) = strTest1 (x)
x = x + 1
strF(i) = strTest1 (x)
x = x + 1
strG(i) = strTest1 (x)
i = i + 1

Next

Tack

Testa detta...

For i = 0 To uBound(strTest1 ) ' **** Sätt "For i", istf "For x"
strA(i) = strTest1 (x)
x = x + 1
strB(i) = strTest1 (x)
x = x + 1
strC(i) = strTest1 (x)
x = x + 1
strD(i) = strTest1 (x)
x = x + 1
strE(i) = strTest1 (x)
x = x + 1
strF(i) = strTest1 (x)
x = x + 1
strG(i) = strTest1 (x)
' i = i + 1 **** ta bort denna rad

Next

Funkar inte, får felet:
Felaktigt matrisindex: 'i'

JAg gissar på att du har gjort fel någonstans. :oP

Men att vet vad du gjort fel är svårt att ta reda på efter som du inte bifokar koden som tilldelar och dimensionerar variablerna. Utan att vet vilka dimensioner det får eller vad det kommer ifrån gör du det till en gissningslek.

Om du vill ha mer exakt hjälp får du allt bifoga lite mer av din kod.

Alltså den splittade strängen innehåller 4 rader med 7 fält för varje rad.
strTest = getTest(strTest )
strTest = split(strTest , "|")

redim strA(i)
redim strB(i)
redim strC(i)
redim strD(i)
redim strE(i)
redim strF(i)
redim strG(i)

i = 0
For x = 0 To uBound(strTest )
strA(i) = strTest (x)
x = x + 1
strB(i) = strTest (x)
x = x + 1
strC(i) = strTest (x)
x = x + 1
strD(i) = strTest (x)
x = x + 1
strE(i) = strTest (x)
x = x + 1
strF(i) = strTest (x)
x = x + 1
strG(i) = strTest (x)
i = i + 1
Next

Hoppas detta kan hjälpa dig

Vad retunerar getTest?

Du kan försök med:
<code>
Dim strTest
Dim strRows
Dim strColumns

Dim X
Dim lngCount

strTest = "1.1|1.2|1.3|1.4|1.5|1.6|1.7" & vbCrLf & _
"2.1|2.2|2.3|2.4|2.5|2.6|2.7" & vbCrLf & _
"3.1|3.2|3.3|3.4|3.5|3.6|3.7" & vbCrLf & _
"4.1|4.2|4.3|4.4|4.5|4.6|4.7"

strRows = Split(strTest, vbCrLf)
lngCount = UBound(strRows)

redim strA(lngCount)
redim strB(lngCount)
redim strC(lngCount)
redim strD(lngCount)
redim strE(lngCount)
redim strF(lngCount)
redim strG(lngCount)

For X = 0 To lngCount
strColumns = Split(strRows(X), "|")
strA(X) = strColumns(0)
strB(X) = strColumns(1)
strC(X) = strColumns(2)
strD(X) = strColumns(3)
strE(X) = strColumns(4)
strF(X) = strColumns(5)
strG(X) = strColumns(6)
Next
</code>

Har du något att dölja eller varför har du valt att inta visa ditt visitkort för medlemmar?

Tack för hjälpen..Ang mitt visitkort så har jag inte lagt ner någon krut på det..