Message de rapport:
 

parcours et selection selon deux condition ?

Sujet: parcours et selection selon deux condition ?
par mostafa sur 1/2/2008 19:19:10

Bonjour,

j'ai un table que je remplie par un requête comme suit :

N Date

1002 02/11/2007
1002 02/11/2007

1222 02/11/2007

1019 28/09/2007 ok
1019 30/04/2007 ok

1061 28/09/2007 ok
1061 06/07/2007 ok

1154 16/11/2007 ok
1154 09/03/2007 ok
1154 16/11/2007 (mon code me colore aussi cette ligne)
1154 09/03/2007 (mon code me colore aussi cette ligne)

1890 23/03/2007 ok
1890 23/03/2007
1890 24/03/2007 ok

je vaudrais calculer le nombre des lignes qui ont un n qui se répètent avec des dates différentes donc j'ai pensé au début de faire colorer les lignes qui ont cette condition mais j'ai pas bien y arriver !



NombreTable--

POUR nCompteur = 1 A (NombreTable)
  nIndice = TableCherche( N ,MATABLE.N[nCompteur],Vrai,nCompteur+1)
  TANTQUE nIndice > 0
    SI MATABELE.DATE [nCompteur] <> MATABELE.DATE[nIndice] ALORS
      kk = Dimension(tabSuiteDate)
      POUR j = 1 A kk
        // Pour sauter les lignes déjà colorer
        SI MATABLE.DATE [nIndice] = tabSuiteDate [j] ET ( MATABLE.N[nCompteur] = tabSuiteN [j] OU MATABLE.N[nIndice] = tabSuiteN [j] ) ALORS
          GOTO hh
        FIN
      FIN
      BufCompteur ++
      Dimension(tabLIsteIndice,BufCompteur)
      Dimension(tabLIsteSerail,BufCompteur)

      // sauvegarde date et N à colorer
      tabSuiteDate[BufCompteur] = MATABLE.DATE[nIndice]
      tabSuiteN [BufCompteur] = MATABLE.N [nIndice]

      // coloration des ligne de condition    
      MATABLE.N[nCompteur]..CouleurFond = iVertClair
      MATABLE.N[nIndice]..CouleurFond = iVertClair
    FIN
hh :
    nIndice = TableCherche(N ,MATABLE.N[nCompteur],Vrai,nIndice+1)
  FIN
FIN

Svp est ce qu'il y as un truc plus rapide et simple me renvoie seulement les lignes avec (ok)?
Merci
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2