Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problems in using the function EVALUATE()
Message
From
14/09/2017 16:29:40
Reza Meamar
Homa Programming Group
Shiraz, Iran
 
 
To
14/09/2017 16:22:31
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP SP3
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01654324
Message ID:
01654333
Views:
71
>>>>Dear All,
>>>>I have below codes
>>>>
>>>>m.KHour = 300
>>>>
>>>>HMF01 = "m.KHour * 1100000 / 110 "
>>>>HMF02 = "110000"
>>>>HMF03 = ""
>>>>
>>>>FOR ncounter = 1 TO 3
>>>>STORE EVALUATE("m.HMF" + PADL(ALLTRIM(STR(nCounter)),2,"0")) TO nValue
>>>>
>>>>? nValue
>>>>ENDFOR
>>>>How should I use the EVALUATE() function to put a numeric value in the nValue variable?
>>>>
>>>>3000000 for HMF01
>>>>1100000 for HMF02
>>>>0 for HMF03
>>>>
>>>>Thank you for guiding
>>>
>>>
m.KHour = 300
>>>
>>>HMF01 = str(m.KHour)+ "* 1100000 / 110 " && Note the change here!
>>>HMF02 = "110000"
>>>HMF03 = ""
>>>
>>>FOR ncounter = 1 TO 3
>>>STORE val(EVal("m.HMF" + PADL(ALLTRIM(STR(nCounter)),2,"0"))) TO nValue && Note the change
>>>
>>>? nValue
>>>ENDFOR
>>
>>Dear Tore,
>>this is an example. the content of HMF01 is stored in a field.
>>I used VAL(EVAL()) , but when field content is empty, i get error.
>
>Please create a sample with a cursor, then it's more realistic.


CREATE CURSOR MyCursor (HMF01 C(25), HMF02 C(25), HMF03 C(25))
INSERT INTO MyCursor (HMF01, HMF02, HMF03) VALUES ("m.KHour * 1100000 / 110", "1100000", "")

m.KHour = 300

FOR ncounter = 1 TO 3
STORE EVAL(EVALUATE("HMF" + PADL(ALLTRIM(STR(nCounter)),2,"0"))) TO nValue

? nValue
ENDFOR

USE IN MyCursor
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform