>Dmitry,
>
>I have been able to use the click event of the grid headder to set the order.
>
>IF ORDER() != "LFNAME"
> SET ORDER TO 2
>ELSE
> SET ORDER TO
>ENDIF
>thisform.grid1.Refresh
>
>
>
>Then in the Grid Refresh event, I reset the caption to bold or not
>
>* reset the captions
>this.Column2.Header1.FontBold = .f.
>DO case
>CASE ORDER() = "LFNAME"
> this.Column2.Header1.FontBold = .t.
>ENDCASE
>DODEFAULT()
>
>
>HTH
Ron,
Thank you very much.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham