Information générale
Catégorie:
Codage, syntaxe et commandes
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement