Re: modification d'une colonne de table or du code de la colonne

Posté par Celtic le 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