Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problems with seek on a view
Message
 
À
21/08/2000 13:26:55
Jimmy Ditta
Twin City Electronics
Monroe, Louisiane, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Divers
Thread ID:
00407408
Message ID:
00407448
Vues:
27
Hi Jimmy,

I see Mike and Erik found your problem. I just wanted to mention WITH...ENDWITH, you can use it to save yourself some typing AWA speed you code up a little. See below:


Transactn_search():
SELECT trancustin

GO TOP

<b>With ThisForm</b>
    .trans_num = .Combo1.displayvalue

    SEEK .Combo1.displayvalue ORDER TAG trans_id IN trancustin

    IF FOUND()
        .Combo1.value = trans_id
	.Text1.VALUE = track_num
	.Text2.VALUE = company
	.Text3.VALUE = lot_worth
	.Text4.VALUE = amt_initial_owed
	.Text5.VALUE = amt_owed
	.Text6.VALUE = trans_date
	.Edit1.VALUE = transdesc
	.trans_num = .Combo1.displayvalue
    ELSE
        = messagebox('The record you searched for is invalid and should be deleted')	
    ENDIF

    .cursor_trans_items()
    .browse_gridcontrols()
<b>ENDWITH</b>
Roi
'MCP' Visual FoxPro

In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform