vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Eintragen und Sortieren 
Autor: Hank-15
Datum: 23.06.24 15:40

ich habs nun umgeschrieben und es funktioniert so bis auf die Zeile wo die Zahlen verglichen werden solln. Da passiert komischwerweise garnichts

Dim nText As String, zText As String   'sText ist nun nText wegen Name
Dim vn As Integer, vz As Integer
Private Sub LblBildMenü_Click(Index As Integer)
 If Index = 1 Then
  nText = Trim(LblInfo(0).Caption)
  For vn = 0 To ListBesten3.ListCount - 1
   n = Split(ListBesten3.List(vn), vbTab)
   If Trim(n(1)) = nText Then ListBesten3.List(vn) = lbgt & vbTab & LblInfo( _
     0).Caption: LblNameTemp.Caption = "1"
  Next
  If LblNameTemp.Caption = "0" Then
   If ListBesten3.ListCount < 10 Then ListBesten3.List(ListBesten3.ListCount) = _
     lbgt & vbTab & LblInfo(0).Caption
   If ListBesten3.ListCount = 10 Then
    zText = Trim(LblBGTemp.Caption)
    For vz = 0 To ListBesten3.ListCount - 1
     z = Split(ListBesten3.List(vz), vbTab)
     If Trim(z(0)) < zText Then ListBesten3.List(0) = lbgt & vbTab & LblInfo( _
       0).Caption    '<<<< Die Zeile da passiert nichts und ich weiss nicht warum
    Next
   End If
  End If
 End If
End Sub
Danke
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Eintragen und Sortieren119Hank-1522.06.24 21:44
Re: Eintragen und Sortieren49Hank-1523.06.24 15:40
Re: Eintragen und Sortieren58sv0001024.06.24 18:58
Re: Eintragen und Sortieren43Hank-1525.06.24 09:53
Re: Eintragen und Sortieren26Hank-1503.07.24 09:03
Re: Eintragen und Sortieren27Hank-1503.07.24 10:19
Re: Eintragen und Sortieren15Hank-1506.07.24 11:35

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel