Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Sorting
Message
De
05/06/2002 20:36:15
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00664835
Message ID:
00665225
Vues:
22
Hi,
When I click on Split Button at 1st column of grid, I will call Split method
From the Split Method I call method Sort_No for sorting. It seek work ok but only for once time, It doesnt work when i add the second record for the same record. Any suggestion?

In Method Sort_No
SELECT myCursor
INDEX ON cProd+STR(cno,2) TO cSort
SET ORDER TO cSort

SELECT myCursor
no_rec = 0
Go Top
Do While !EOF()
no_rec = no_rec + 1
Repl cno WITH no_rec
Select MyCursor
Skip
Endd



In Split Method

SELECT myCursor
GO Thisform.recordno
IF cSplit = 'M'
Replace cno WITH cno+1
ln_no = cNO
lc_Prod = cProd
lc_split = cSplit

SELECT myCursor
Append Blank
Replace cNo WITH ln_no+1
REPLACE cprod WITH lc_prod
replace cSplit WITH 'C'
Thisform.ShowGrid()
Endif
Thisform.Sort_no()
Thisform.Grid1.Refresh()
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform