Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Rangliste
Autor: Wolfgang
Datum: 13.11.01 08:56
kann mir vielleicht jemand weiterhelfen ?? folgendes problem Die teilnehmer an einem wettbewerb habe ihre punkte bekommen nun möchte ich eine rangliste erstellen. Siehe code funktioniert auch nicht schlecht aber wenn mehrere die gleiche punktzahl haben dann nicht so richtig Also platz 1 100 Punkte = 1 Rang platz2 90 Punkte = 2 Rang platz 3 90 Punkte = " " platz 4 80 Punkte= 3 Rang und genau das ist das Problem es müsste Rang 4 sein. daten sind aus access db punkte und werden in rang eingetragen CODE Private Sub Command14_Click() Adodc1.Refresh Me.Adodc1.Recordset.Sort = " Punkte DESC " Me.Adodc1.Recordset.MoveFirst DataGrid1.Refresh Me.Adodc1.Recordset!Rang = 1 AktuellePunkte = Me.Adodc1.Recordset!Punkte AktuellerRang = 1 For i = 1 To Me.Adodc1.Recordset.RecordCount - 1 Me.Adodc1.Recordset.MoveNext If Me.Adodc1.Recordset!Punkte = AktuellePunkte Then Me.Adodc1.Recordset!Rang = "" Else AktuellerRang = AktuellerRang + 1 Me.Adodc1.Recordset!Rang = AktuellerRang End If AktuellePunkte = Me.Adodc1.Recordset!Punkte Next i Me.Adodc1.Recordset.MoveFirst End Sub Viel vergügen

Rangliste	69	Wolfgang	13.11.01 08:56
Re: Rangliste	366	Dieter	13.11.01 09:48
Re: Rangliste	69	Wolfgang	13.11.01 10:12
Re: Rangliste	57	Wolfgang	13.11.01 10:18
Re: Rangliste	329	Dieter	13.11.01 10:22
Re: Rangliste	35	Wolfgang	13.11.01 10:30

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