Kirjautuminen

Haku

Tehtävät

Kilpailu

Putka Open 2025
4. kierros:
7.11. klo 18 – 9.11. klo 23

Keskustelu: Ohjelmointikysymykset: VB6: Redim Preserve???

Wizard [22.12.2003 19:52:21]

#

Eli koodi näyttää tältä:

Do While adTietue.EOF = False
    i = i + 1
    If i > 1 Then
        ReDim Preserve tblAsiakastaulu(i, 9)
    Else
    End If
    tblAsiakastaulu(i, 1) = i
    tblAsiakastaulu(i, 2) = adTietue("AsiakasID")
    tblAsiakastaulu(i, 3) = adTietue("Nimi")
    tblAsiakastaulu(i, 4) = adTietue("Sukunimi") & " " & adTietue("Etunimi")
    tblAsiakastaulu(i, 5) = adTietue("Osoite")
    tblAsiakastaulu(i, 6) = adTietue("Ponro")
    tblAsiakastaulu(i, 7) = cboKaupunki.Text
    tblAsiakastaulu(i, 8) = cboValtio.Text
    tblAsiakastaulu(i, 9) = adTietue("Email")
    adTietue.MoveNext
Loop

Miksi redim preserve lause ei onnistu, mutta redim kyllä onnistuu? Valittaa, että subscript out of range.

Antti Laaksonen [22.12.2003 20:44:03]

#

Vika lienee siinä, että ainoastaan taulukon viimeistä ulottuvuutta voi muuttaa Preserve-määrityksellä. Pystyisitkö laittamaan ulottuvuudet toisin päin?

ReDim Preserve tblAsiakastaulu(9, i)

jne.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta