Re: modification d'une colonne de table or du code de la colonne |
Sujet: Re: modification d'une colonne de table or du code de la colonne par Celtic sur 17/2/2006 15:27:20 Voila mon code utilisation avoir une requete commence par... instancier la classe dans la colonne du tableau voulu dans a chaque modification de la colonne apeler monobj:Pr_Search(moimeme..Valeur) (marche que sur des element chaine) /////////////////////////////////////// // Auteur: CELTIC28 ////////////////////////////////////// ClAssiste est une classe str_elem_req est une chaîne Num_evenement est un entier GLOBAL Gl_str_Req, Gl_str_TabCol, Gl_str_req_col sont des chaînes Gl_i_Touche est un entier Gl_str_mem est une chaîne FIN PROCEDURE Constructeur(NomReq,NomReqCol,nomtabcol sont des chaînes) ::Gl_str_Req=NomReq ::Gl_str_TabCol=nomtabcol ::Gl_str_req_col=NomReqCol ::Gl_str_mem="mem"+Gauche(HeureSys(),4) MemCrée(::Gl_str_mem) PROCEDURE Pr_Search(nomelem est une chaîne="") :str_elem_req = nomelem SI HExécuteRequête(::Gl_str_Req,hRequêteDéfaut,:str_elem_req) ALORS SI HLit(::Gl_str_Req,1) ALORS {::Gl_str_TabCol}..Bulle={::Gl_str_req_col}+" Appuyer sur F3 pour valider" MemAjoute(::Gl_str_mem,{::Gl_str_req_col},{::Gl_str_req_col}) SI (_EVE.wParam) = 113 ALORS ::Gl_str_TabCol=::Gl_str_req_col FIN FIN FIN :Num_evenement=Evénement("::Pr_wait_touche","*.*",256) TimerSys(::Pr_wait_touche,10,77) PROCEDURE GLOBAL Pr_wait_touche() SI (_EVE.wParam)=114 ALORS ::Gl_i_Touche = (_EVE.wParam) SELON ::Gl_i_Touche CAS 114: _EVE.wParam=0 ::Gl_i_Touche=0 SI MemExiste(::Gl_str_mem) ALORS {::Gl_str_TabCol}..Valeur=MemRécupère(::Gl_str_mem,1) FIN AUTRE CAS: _EVE.wParam=0 ::Gl_i_Touche=0 FIN FIN _EVE.wParam=0 ::Gl_i_Touche=0 |