Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

immer noch array problem
Autor: hefti
Datum: 14.01.03 21:45
hallo , ich bins wieder , tut mir auch schrecklich leid . irgendwie bekomme ich das mit den arrays nicht hin . kann mir jemand sagen , was ich falsch mache ? hier ein auszug aus meinem code . 'allgemeiner deklarationsbereich Option Base 1 Dim nfilm(500) As String Dim aufnahme(500) As String Dim anzahl(500) As Variant Dim genre(500) As String Dim inti As Integer ' Schleifenzähler Dim cdnr(500) As Integer Dim intmsg As Integer ' MsgBox() Rückgabe ' prozedur zur eingabe von daten Private Sub cmdnext_Click() inti = 1 fredat = FreeFile Do nfilm(inti) = txtfilm.Text If (txtfilm.Text = " ") Then Exit Do ' beenden aufnahme(inti) = cboauf.Text anzahl(inti) = txtanzahl.Text genre(inti) = txtgenre.Text cdnr(inti) = txtcdnr.Text ' text in richtextbox schreiben txtges.Text = txtges.Text & txtcdnr.Text & Space(4) & txtfilm.Text _ & Chr(160) & txtanzahl.Text & Chr(160) _ & cboauf.Text & Chr(160) & txtgenre.Text & vbCrLf ' Überprüfen ob eingabe eine zahl ist If IsNumeric(txtanzahl.Text) Then txtfilm.SetFocus Else intmsg = MsgBox("Bitte eine Zahl bei Anzahl CD / DVD eingeben !", vbOKCancel, vbCritical) txtanzahl.SetFocus End If txtcdnr.Text = txtcdnr.Text + 1 inti = inti + 1 Loop Until (inti < 500) txtfilm.Text = "" txtanzahl.Text = "" txtgenre.Text = "" End Sub ' prozedur zum speichern der abgelegten daten Private Sub mnusaveas_Click() Dim anf As Integer frdat = FreeFile inti = 1 cdlallgem.CancelError = True ' fehler bei Abbruch On Error GoTo errsavhandler ' sprung im fehlerfall cdlallgem.Flags = &H80000 ' flags setzen cdlallgem.ShowSave ' dialogfeld speichern öffnen Open cdlallgem.FileName For Append As #frdat For anf = 1 To inti - 1 Print #frdat, cdnr(anf), nfilm(anf), genre(anf) Next anf Close #fredat

immer noch array problem	492	hefti	14.01.03 21:45
Re: immer noch array problem	255	Marcus W	15.01.03 08:09

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