Pierre,

Another way of doing it, that's better if you have more than one property to set:

local loCombo
loCombo = eval( "thisform." + tcComboname )
with loCombo
   .ListIndex = lnComRec
endwith

>This refresh is good but the name of the combo is in
>the VAR.
>
>LOCATE FOR cnoproduit = tcNoprod
>lnComRec = recno()
>if FOUND( )
> Thisform.cbo1.listindex = lnComRec
>ENDIF
>
>I try this
>
> Thisform.&tcComboname.listindex = lnComRec