Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Indexing views question.
Message
From
26/05/1998 15:30:20
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00102035
Message ID:
00102058
Views:
22
Colin,

This is what I am doing:
lcSafety = SET([SAFETY])
SET SAFETY OFF

SELECT v_Cust
lnBuffer = CURSORGETPROP([BUFFERING], ALIAS()) && Save buffer mode
=CURSORSETPROP([BUFFERING], 3, ALIAS())        && Optimistic row buff

*--Index
INDEX ON DELETED()                      TAG Deleted
INDEX ON RecKey                              TAG RecKey

*--Clean-Up
SET SAFETY &lcSafety
=CURSORSETPROP([BUFFERING], lnBuffer,ALIAS())   && Turn buffering off
-myron kirby
================================================
>Myron,
>
>I tried that and got the same message. Here is the code I moved to the Form.Init:
>
>
>SELECT RetrofitDetailView
>INDEX ON Proj+Retrofit+Item FOR !DELETED() TO Retroitems.IDX
>THIS.DataEnvironment.Cursor2.BufferModeOverride=5
>=REQUERY()
>
>
>I traced it in the debugger and the message comes up on the 'THIS.DataEnvironment.Cursor2.BufferModeOverride=5' line. Any other ideas?
>
>>Colin,
>>Try the same code in the Frm.Init. I am using the same methodology
>>and it works fine.
>>-myron kirby-
>>=======================
>>>I have a form that uses 2 views that I need to index. I initially have the .BufferModeOverride=3 (Optimistic Row) and NoDataOnLoad=.T. for both. In the DE.Init I create the index, set THIS.Cursor.BufferModeOverride=5 and issue =REQUERY() for both. When I run the form I get the message "Property setting will not take effect until data environment reloaded'.
>>>
>>>What is causing this message to occur and should this code be someplace else to prevent this message? TIA
----------------------------------
-myron kirby (mkirby2000@gmail.com)-
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform