Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Beginner - Business object
Message
From
29/01/2002 15:52:17
Rex Mahel
Realm Software, Llc
Ohio, United States
 
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00612101
Message ID:
00612442
Views:
20
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform