>Why the grid does no change? How can I show the correct data after the click the command button?
>Thank you!
>
>define class clsform as form
> top=5
> left=5
> width=300
> height=300
>
> add object mycmd as CommandButton with;
> left=5, top=80, height=15, width=100,;
> caption="change"
>
> add object mygrid as grid with;
> left=5, top=100, height=200, width=150,;
> recordsourcetype=4,;
> recordsource="select nane from company "+;
> "where left(cty_origin,1) <> 'H' into cursor mycur"
>
> procedure mycmd.click
> recordsource="select nanme from company "+;
> "where left(name,1) = 'U' into cursor mycur"
> thisform.mygrid.refresh
> thisform.mygrid.setfocus
> endproc
>enddefine
Oliver,
Instead of changing recordsource just change parameter :

define class clsform as form
 top=5
 left=5
 width=300
 height=300
 myFilter = "H"
*.....
add object mygrid as grid with ;
  left=5, top=80, height=15, width=100,;
  caption="change" ;
  recordsourcetype=4,;
  recordsource="select nane from company "+;
          "where left(cty_origin,1) <> "+;
           trim(this.myFilter)+;
          " into cursor mycur"
*....
procedure mycmd.click
      thisform.myFilter = 'U'
      thisform.mygrid.refresh
      thisform.mygrid.setfocus
endproc

And be sure to keep an index tag on your expression (left(cty_origin,1)). Also left(cty_origin,1) = "H" and cty_origin = "H" would mean same unless you set exact, ansi on. IMHO it's better to have a tag with key expression cty_origin and use cty_origin = "H" in where clause.
Cetin