FICHTL: Tabellarische Recordset Ausgabe

hallo forum

ich bin schon total verzweifelt
also:

eine tabelle mit folgenden spalten

name    farbe     größe
teil1   rot       l
teil1   blau      s
teil1   rot       s
teil1   gruen     xl
teil2   rot       s
usw...

soll jetzt so dargestellt werden

teil1:

rot    blau    gruen
s     x       x  
l     x
xl                    x

und ich hab überhaupt keine ahnung wie
ich das abfragen soll?

ich danke euch für eure anregungen
grüße FICHTL

  1. »»  hallo forum

    ich bin schon total verzweifelt
    also:

    eine tabelle mit folgenden spalten

    name    farbe     größe
    teil1   rot       l
    teil1   blau      s
    teil1   rot       s
    teil1   gruen     xl
    teil2   rot       s
    usw...

    soll jetzt so dargestellt werden

    teil1:

    »»

    rot    blau    gruen
    s     x       x  
    l     x
    xl                    x

    und ich hab überhaupt keine ahnung wie
    ich das abfragen soll?

    ich danke euch für eure anregungen
    grüße FICHTL

    Hi Fichtl,

    das is ja richtig kompliziert, vor so ner Frage stand ich vor ca. einem Monat auch.. hab es dann beinahe geschafft, in dem ich die x-sel deiner Darstellung durch Einträge s,l,xl ersetzt habe...

    du mußt erst spaltenweise abfragen, dann zeilenweise...

    Mal sehen, vielleicht komm ich auch noch zu einer Lösung...

    Bis dahin, ciao, machs gut,

    Frank

    1. servus Frank

      jetzt gehts aber los. meine lösung ist glaube ich
      das hässlichste stück scripting was ich jemals gesehen
      hab aber sie funkt so halbwegs. in aller kürze.

      zuerst die farben und mit der selben prozedur
      die größen in ein zwei verschiedene arrays gepresst.

      while not rsCol.eof  
      

      IF rsCol("Farbe")<>"" THEN
         attribArray(colIndex,0) = rsCol("Farbe")
         colIndex = colIndex + 1
        END IF
        rsCol.movenext
      wend

      dann die arrays vereinigen

      FOR i = 0 TO UBOUND(attribArray)
      IF attribArray(i,0)=rsAttrib("Farbe") THEN
        FOR e = 0 TO UBOUND(attribArray)
         IF attribArray(0,e)=rsAttrib("Größe") THEN
                attribArray(i,e) = "<font size=-1>Bestellen</font>"
         END IF
        NEXT
      END IF
      NEXT

      und dann mit einer einfachen FOR schleife das ganze
      rauswürgen. ziehmlich umständlich. ich hoffe ich finde
      noch was besseres.

      grüße
      FICHTL