here ya go
(sorry i dont remeber the tags to make it appear as code)
*this is the click event
thisform.syear=this.value
thisform.txtprog_year.value=this.value
vyear=thisform.syear
set filter to STR((VAL(thisform.syear)+1),4)=this.value
thisform.refresh
this.lostfocus
*this is the int
byear=str((val(gyear)-9),4)
DO WHILE BYEAR # GYEAR
BYEAR = STR((VAL(BYEAR)+1),4)
thisform.syear=byear
thisform.lstprog_year.addlistitem(thisform.syear)
ENDDO
again TIA and sorry about forgetting the tags
Précédent
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