Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Table has no Index order set.......
Message
From
07/07/2000 02:58:34
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Table has no Index order set.......
Miscellaneous
Thread ID:
00389322
Message ID:
00389322
Views:
51
I'm getting the "Table has no index order set" error for the following code, But when I place the ORDER BY clause after INTO CURSOR I get the "Unrecognized command verb" error.

SELECT Transactn.trans_id, Transactn.transdesc, Transactn.track_num,;
Customers.cust_id, Customers.company, Inventory_in.chgperkt,;
Inventory_in.clarity, Inventory_in.colors, Inventory_in.cut,;
Inventory_in.entered, Inventory_in.invoiced, Inventory_in.inactive,;
Inventory_in.karatwt, Inventory_in.measure, Inventory_in.p_descript,;
Inventory_in.stocknum, Inventory_in.total_chg;
FROM inventory!customers RIGHT OUTER JOIN inventory!transactn;
LEFT OUTER JOIN inventory!inventory_in ;
ON Transactn.trans_id = Inventory_in.trans_id ;
ON Customers.cust_id = Transactn.cust_id;
INTO CURSOR INVENTORY

INDEX ON stocknum TAG cursor1

IF INDEXSEEK(Thisform.Pageframe1.Page1.Combo4.value, .F., 'inventory_in') = .T.

INDEXSEEK(Thisform.Pageframe1.Page1.Combo4.value, .T., 'inventory_in')
Thisform.Pageframe1.Page1.Text2.value = RECNO( )
Thisform.Pageframe1.Page1.CHARGEPERKARAT1.VALUE = chgperkt
Thisform.Pageframe1.Page1.MEASUREMENTS1.VALUE = measure
Thisform.Pageframe1.Page1.Combo3.VALUE = cut
Thisform.Pageframe1.Page1.Combo2.VALUE = colors
Thisform.Pageframe1.Page1.Combo1.VALUE = clarity
Thisform.Pageframe1.Page1.PRODUCTDESCRIPTION1.VALUE = p_descript
Thisform.Pageframe1.Page1.Text1.VALUE = entered
Thisform.Pageframe1.Page1.Text3.VALUE = invoiced
Thisform.Pageframe1.Page1.Text4.VALUE = total_chg
Thisform.Pageframe1.Page1.Text5.VALUE = karatwt
Thisform.Pageframe1.Page1.trans_descript.VALUE = transdesc
Thisform.Pageframe1.Page1.Text7.VALUE = company
Thisform.Pageframe1.Page1.Text8.VALUE = track_num
ELSE
= messagebox('The record you searched for is invalid and should be deleted')
Thisform.Pageframe1.Page1.Combo4.VALUE = stocknum
ENDIF


What silly little thing did I not realize?
Thanks
JD
Next
Reply
Map
View

Click here to load this message in the networking platform