Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Why does cursor adaptor's cursorfill() cause a browse?
Message
De
27/03/2005 11:21:59
Mike Yearwood
Toronto, Ontario, Canada
 
 
À
26/03/2005 17:29:24
Mike Sue-Ping
Cambridge, Ontario, Canada
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9
Database:
Visual FoxPro
Divers
Thread ID:
00999309
Message ID:
00999332
Vues:
33
Hi Mike

>VFP9 Beta (and yeah I know it expires shortly).
>
>I've added a cursor adaptor to my form's dataenvironment and am trying to set it up via code as follows:
>
>
>SELECT * FROM SEC_CA WHERE CATEGORY = UPPER(ALLTRIM(this.caption)) INTO CURSOR csrCA

FYI, you can get better performance out of that select command. Even if you have no indexes on sec_ca, you should avoid the this.caption and the upper(alltrim()) like this....

LOCAL lcCaption
lcCaption = UPPER(ALLTRIM(THIS.Caption))
SELECT * FROM SEC_CA WHERE CATEGORY = m.lcCaption

and if you have an index like UPPER(CATEGORY)

then SELECT * FROM SEC_CA WHERE UPPER(CATEGORY) = m.lcCaption would be the optimal way to do it.



>
>THISFORM.oDE.ADDOBJECT("ca"+this.caption, "caSectional")
>oCA = EVALUATE("thisform.oDE.ca"+ ALLTRIM(this.caption))
>
>WITH oCA
>	.Alias = "csr" + lcCategory
>	.BufferModeOverride = 5
>	.CursorSchema = ""
>	.DataSourceType = "NATIVE"
>	.FetchSize = -1
>	.KeyFieldList = "SECT_NO"
>	.SelectCmd = ALLTRIM(csrCA.Selcmd)
>	.Tables = ALLTRIM(csrCA.tablenames)
>	.UpdatableFieldList = ALLTRIM(csrCA.Updfldlst)
>	.UpdateNameList = ALLTRIM(csrCA.UpdnamLst)
>* The following line gets the data AND automatically displays it in a browse window!
>* Needless to say, that's very annoying.
>	.CursorFill()
>ENDWITH
>
>
>All of the cursor adaptor's settings are being filled in from values stored in a table. Prior to me doing this, I hardcoded them and the CursorFill() method did not cause the browse window to appear. What's causing it now?
>
>Regards,
>
>Mike
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform