Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problems with seek on a view
Message
 
To
21/08/2000 13:26:55
General information
Forum:
Visual FoxPro
Category:
Databases,Tables, Views, Indexing and SQL syntax
Miscellaneous
Thread ID:
00407408
Message ID:
00407448
Views:
26
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!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform