Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Search Expression
Message
From
23/05/2003 10:55:30
 
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00792215
Message ID:
00792239
Views:
16
Thank you for your quick answer,
how i can fix the code to work properly

m.cGetExpr = m.cGetExpr2 or m.cGetExpr = m.cGetExpr3

Original Code




LOCAL cGetExpr1,cGetExpr2,cGetExpr3,cJoin,cJoin1,cGetExpr

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 ")
m.cJoin1 = IIF(THIS.optGrpAndOr2.value = 2," OR "," AND ")
DO CASE
CASE EMPTY(m.cGetExpr1) AND EMPTY(m.cGetExpr2) AND EMPTY(m.cGetExpr3)
m.cGetExpr = ""

CASE EMPTY(m.cGetExpr3) &&NEW
m.cGetExpr = m.cGetExpr1

CASE EMPTY(m.cGetExpr2)
m.cGetExpr = m.cGetExpr1

CASE EMPTY(m.cGetExpr1)
m.cGetExpr = m.cGetExpr2 or m.cGetExpr = m.cGetExpr3
OTHERWISE
m.cGetExpr = m.cGetExpr1+m.cJoin+m.cJoin1+m.cGetExpr2+m.cGetExpr3

ENDCASE

RETURN m.cGetExp
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform