Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
CASE Condition
Message
From
02/04/2003 08:46:09
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
00772897
Message ID:
00772907
Views:
6
>>In the debugger:
>>
>>RecNo('MyCursor') = 103
>>RecCount('MyCursor') = 103
>>RecNo('MyCursor') = RecCount('MyCursor') = .T.
>>
>>In the code:
>>
>>
>>DO CASE
>>     CASE RecNo('MyCursor') = RecCount('MyCursor')
>>          * DO SOMETHING
>>ENDCASE
>>
>>
>>Except it does not execute "* DO SOMETHING"
>>
>>The condition is true, how could it not run the line?
>>
>Renoir,
>
>How do you know it's not executed? Can you post actual code?

I'm stepping through it in the debugger, plus I'm putting a WAIT window inside the CASE. It skips right over it.
SELECT csrTempAcct

SCAN

   DO CASE
      CASE csrTempAcct.ECon < 0 OR csrTempAcct.EMat < 0
         This.RollForwardInterestFund(tiPlanID, tcAcctNum, csrTempAcct.Acct_ID, csrTempAcct.Contrib_Dt, .T., .F.)
      CASE RecNo('csrTempAcct') = RecCount('csrTempAcct')
         WAIT WINDOW 'RUNS SECOND CASE CONDITION'
         This.RollForwardInterestFund(tiPlanID, tcAcctNum, csrTempAcct.Acct_ID, csrTempAcct.Contrib_Dt, .T., .F.)
   ENDCASE

ENDSCAN
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform