Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
To Seek or not to Seek that is the question
Message
From
31/12/2004 11:06:13
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
To Seek or not to Seek that is the question
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
00973540
Message ID:
00973540
Views:
53
The following code does not work (much like most of my other code) but I cannot understand why! Is the SEEK() function documented wrong or am I wrong minded? Someone please check this out.
Close Tables All
Local i, cIDXIndexFileName
Create Table test (iKey i)
For i = 1 To 20
	Insert Into test Values (i)
Endfor
Clear
cIDXIndexFileName = Forceext(Substr(Sys(2015),2,8),'idx')
? cIDXIndexFileName
Index On iKey To (cIDXIndexFileName)

#if .f.

SEEK(eExpression [, nWorkArea | cTableAlias
   [, nIndexNumber | cIDXIndexFileName | cTagName]])

#endif


If Not Seek(3,'test',cIDXIndexFileName)
	Messagebox('Not found')
Else
	Message('Found')
Endif

If Not Seek(3,'test',&cIDXIndexFileName)
	Messagebox('Not found')
Else
	Message('Found')
Endif

If Not Seek(3,'test',(cIDXIndexFileName))
	Messagebox('Not found')
Else
	Message('Found')
Endif
Close Tables All
Erase test.Dbf
Erase (cIDXIndexFileName)
Dir *.idx
Thanks

Glenn
Next
Reply
Map
View

Click here to load this message in the networking platform