Iterieren kannst Du so: For I = 0 to ubound(Arr,2) Next
Dann kannst Du z.B. ein Dictionary verwenden mit dem Wert als Key und die ID-Liste als Value... Claudius > > Ich hab nun das Problem vereinfacht, komm aber immer noch > nicht weiter, > und hoffe immer noch auf Hilfe: > > Ich habe folgendes Recordset: > > ID Wert > ------------------------------------ > 18 Auto > 19 Baum > 120 Baum > 20 Decke > 21 Dosen > 121 Dosen > 22 Gans > 122 Gans > 235 Gans > 23 Hase > 160 Hase > 25 Igel > 26 Kaffee > > Ich darf jeden Wert jedoch nur einmal auflisten. Das Recordset ist > bereits nach Wert aufsteigend ( alphabetisch ) sortiert. > Wie ihr seht, gibt es Werte, die einmal oder auch �fter vorkommen. > > Ich hab das Recordset in ein zweidimensionales Array umgewandelt: > > Dim Arr > Arr = REC.Getrows > > Nun m�chte ich folgende manipulation durchf�hren: > > Wenn es einen Wert nur einmal gibt, soll dem Wert einfach die ID > zugeordnet bleiben. Gibt es aber mehrere Werte, sollen die Ids addiert > werrden. Das Ergebnis sollte folgende Erscheinung haben: > > ID Wert > ------------------------------------ > 18 Auto > 19, 120 Baum > 20 Decke > 21, 121 Dosen > 22, 122, 235 Gans > 23, 160 Hase > 25 Igel > 26 Kaffee > > Ich habe versucht, f�r die Schleife die Gr��e zu bestimmen, aber das > geht schon in die Hose: > > Groesse = Ubound(Arr) <- da bekomm ich aber 0 als > Antwort, obwohl es eigentlich 68 Eintr�ge gibt > > Der erste Eintrag Arr(0,i) hat hierbei den Inhalt der ID, der Zweite > Arr(1,i) hat den Wert. > > Ich komm hier absolut nicht weiter. Last mich bitte nicht h�ngen. > > Ein Freund aus Passau > > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | > http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee house.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
