Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit Arrays
Autor: hefti
Datum: 19.12.02 20:59
HI ALLZ , Ich habe folgendes Problem , wenn ich mit Arrays arbeite sollen Daten aus Textfeldern entnommen werden und die Indexvariable immer um eins erhöht werden . Ich habe aber das Problem das der Index immer um 500 erhöht wird , ich weiss nicht was ich falsch mache . Hoffe es kann mir jemand helfen . Ein Ausschnitt aus dem code sieht so aus . Option Base 1 Dim nfilm(500) As String Dim aufnahme(500) As String Dim anzahl(500) As String Dim genre(500) As String Dim inti As Integer ' Schleifenzähler Dim cdnr(500) As Integer Private Sub cmdnext_Click() inti = 1 Do nfilm(inti) = txtfilm.Text If (txtfilm.Text = "") Then Exit Do ' Beenden aufnahme(inti) = cboauf.Text anzahl(inti) = txtanzahl.Text genre(inti) = txtgenre.Text txtcdnr.Text = txtcdnr.Text + 1 inti = inti + 1 Loop Until (inti > 500) End Sub

Problem mit Arrays	430	hefti	19.12.02 20:59
Re: Problem mit Arrays	272	unbekannt	19.12.02 21:13

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen