Hi!

In Split method you should do something like following (see for my comments in code):

SELECT myCursor
GO (Thisform.recordno)
IF cSplit = 'M'
  skip && !!! we should start renumbering from NEXT record
  if !EOF()
    Replace cno WITH cno+1 REST && !!! increase order number for all records starting from current
  endif
  GO (Thisform.recordno)
  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() && !!! No need to call Sort_No again.
Thisform.Grid1.Refresh()

>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()