Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Indexing views question.
Message
De
26/05/1998 15:30:20
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00102035
Message ID:
00102058
Vues:
23
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)-
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform