LPARAMETER cTagFieldname Select GridCursor IF EMPTY(Tagno(cTagFieldname)) INDEX ON (cTagfieldname) TAG (cTagfieldname) ELSE SET ORDER TO TAG (cTagFieldname) ENDIF Thisform.Mygrid.RefreshCould you try this approach? Actually, it's just an example, the project is in another client location and I cannot post actual code right now.