Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Using Two databases sets
Message
From
25/06/1999 09:18:49
 
 
To
24/06/1999 13:24:05
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00233559
Message ID:
00233919
Views:
24
Thank for you answer, but it doesn’t work.

I was looking a form as a table and I saw a directory information save with cursor proprieties
I erase that information and the form works with any set off data using the instruction
SET PATH TO DATA1 or SET PATH TO DATA2
Then I wrote the next procedure.

***********************************************************
This procedure erases the cursors dir information on a form.
The parameter in the form name without extension.

Procedure BorraDirFormas(cForma)

Close Tables All
Clear
Use (cForma+'.Scx')

* Scan for all CURSOR registers

Scan For &cForma..BaseClass='cursor'
* Seek for "..\" And "\" and erasers all characters in between
cPropiedad = &cForma..Properties
nPos1 = At('..\',cPropiedad)
nPos2 =At('\',cPropiedad,2)
Replace &cForma..Properties With;
Stuff(cPropiedad,nPos1, nPos2 - nPos1 + 1,'')
EndSCan

Use

Return
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform