Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Search Expression
Message
 
 
À
23/05/2003 10:55:30
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00792215
Message ID:
00792272
Vues:
19
>Thank you for your quick answer,
>how i can fix the code to work properly
>
>m.cGetExpr = m.cGetExpr2 or m.cGetExpr = m.cGetExpr3
>
Try
LOCAL cGetExpr1,cGetExpr2,cJoin,cGetExpr, cGetExpr3, cJoin, cJoin2
m.cGetExpr1 = THIS.SearchItem(THIS.cboFields1,THIS.cboOperators1,THIS.txtExpr1)
m.cGetExpr2 = THIS.SearchItem(THIS.cboFields2,THIS.cboOperators2,THIS.txtExpr2)
m.cGetExpr3 = THIS.SearchItem(THIS.cboFields3,THIS.cboOperators3,THIS.txtExpr3)

m.cJoin = IIF(THIS.optGrpAndOr.value = 2," OR "," AND ")
IF EMPTY(m.cGetExpr1) OR EMPTY(m.cGetExpr2)
	m.cJoin = "" 
ENDIF	
m.cJoin2 = IIF(THIS.optGrpAndOr2.value = 2," OR "," AND ")
IF EMPTY(m.cGetExpr2) OR EMPTY(m.cGetExpr3)
	m.cJoin2 = "" 
ENDIF	

IF NOT EMPTY(m.cGetExpr1) AND EMPTY(m.cGetExpr2) AND NOT EMPTY(m.cGetExpr3)
   m.cGetExpr = ""  && We don't know what join to use
ELSE
   m.cGetExpr = m.cGetExpr1 + m.cJoin + m.cGetExpr2  + m.cJoin2 + m.cGetExpr3
ENDIF	

RETURN m.cGetExpr
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform