Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Beginner - Business object
Message
De
29/01/2002 15:52:17
Rex Mahel
Realm Software, Llc
Ohio, États-Unis
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Divers
Thread ID:
00612101
Message ID:
00612442
Vues:
21
Will,

Why not change this to:
WITH toCombo
  lcWhere = IIF(EMPTY(.cWhereClause),".T.",.cWhereClause)

  SELECT ID,NAME,managerid ;
    FROM oAll_Clock ;
    ORDER BY ID ;
    WHERE &lcWhere ;
    INTO ARRAY .aRowSource
ENDWITH
From:
WITH toCombo

  lcWhere = .cWhereClause

  IF EMPTY(lcWhere)
    SELECT ID,NAME,managerid ;
      FROM oAll_Clock ;
      ORDER BY ID ;
      INTO ARRAY .aRowSource
  ELSE
    SELECT ID,NAME,managerid ;
      FROM oAll_Clock ;
      ORDER BY ID ;
      WHERE &lcWhere ;
      INTO ARRAY .aRowSource
  ENDIF
ENDWITH
Just my $0.02

Rex
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform