Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
DE cursorsource
Message
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01414556
Message ID:
01414589
Views:
37
Naomi

I visited the link, and I saw the code below to put into beforeopentables method

As I have many forms, is there a way to grab all forms as objects
and run the code below to set all their DE.s ?

Moises





>>FUNCTION SetDBCPath
>>LPARAMETERS poFormDE,pcDBCPath,pcDBCName
>>LOCAL lcDBCName, lcFilePath, lnNumCursors, lnNdx
>>lcDBCName = FORCEEXT(pcDBCName,"DBC")
>>lcFilePath = ADDBS(pcDBCPath) + lcDBCName
>>lnNumCursors = AMEMBERS(lcProperties,poFormDE,2)
>>FOR lnNdx=1 TO lnNumCursors
>> IF UPPER(LEFT(lcProperties[lnNdx],6)) = "CURSOR"
>> IF ATC(lcDBCName,poFormDE.&lcProperties[lnNdx]..database) > 0
>> poFormDE.&lcProperties[lnNdx]..database = lcFilePath
>> ENDIF
>> ENDIF
>>ENDFOR
>>ENDFUNC
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform