Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Search Expression
Message
 
 
To
23/05/2003 10:55:30
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00792215
Message ID:
00792272
Views:
17
>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--
Previous
Reply
Map
View

Click here to load this message in the networking platform