Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Interactive Seek
Message
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01228215
Message ID:
01228237
Views:
21
>I have done an Interactive SEEK in the past so that as you type in your seek content, the database pointer moves closer to the targeted record.
>
>I have a TAG called PNDTSER, meaning "Product # + Date + Serial #". However, as I type in the seek on this search, it does not move the pointer at all until I have typed in all of the Product Number and at least the year and month of the date, which is put in as character data type as in "2007/05/11", so the search isn't even happening until at least the following is entered: "0703101352007/05". 9 characters for the PN and 7 characters for the date.
>
>Can anyone tell me why this doesn't seem to work?
>
>This is what I have int he Combobox's LostFocus:
>
>   CASE This.ListIndex = 6   && Product # + Date + Serial
>      WAIT WINDOW NOWAIT "Setting Order to Product # + Date + Serial #"
>      SET ORDER TO PNDTSER
>      .txtSearch.MaxLength = LEN(Certs.PN) + LEN(Certs.cDate) + LEN(Certs.Serial)
>      .txtSearch.InputMask = "9999999999999/99/99999999"
>
>The next part is the seek in the Search Textbox's Interactive Change event:
>
>WITH ThisForm
>   IF NOT(EMPTY(This.Value))
>      SEEK(UPPER(ALLTRIM(This.Value)))
>   ENDIF
>   IF EOF()
>      ThisForm.nextButton.Enabled = .F.
>   ENDIF
>   ThisForm.Refresh()
>ENDWITH
>
First of all, you should select work area any time you issue SET ORDER or SEEK or EOF, etc. Also, make sure that you have SET NEAR ON.
There are few more concerns about your code, but let start with something.
Edward Pikman
Independent Consultant
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform