Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Table has no Index order set.......
Message
De
07/07/2000 02:58:34
Jimmy Ditta
Twin City Electronics
Monroe, Louisiane, États-Unis
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Table has no Index order set.......
Divers
Thread ID:
00389322
Message ID:
00389322
Vues:
50
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform