Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Bindevent on specific Grid column
Message
De
09/03/2021 18:14:28
Luis Santos
Biglevel-Soluções Informáticas, Lda
Portugal
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Bindevent on specific Grid column
Divers
Thread ID:
01678862
Message ID:
01678862
Vues:
55
Hello ,

good evening
I hope you are all well!
I need help to create a BINDEVENT in my GRID for a given column where the controlsource is: BI.LOBS3 (see coding)
If the column with this conrolsource name exists, if you double-click on the Textbox and this line nº 1 contain the supplier number: 100, then i will go to open my supplier form the Supplier number 100, but if the second line contain the supplier nº 200, then i will go to open my supplier form on the Supplier number 200.

First, i must sure that my bindevent only work where the column controlsource are BI.LOBS3, but depending on which line i dblclick, they must respect the activecell value.

At this moment I cannot enter on the procedure to display the messagebox!?
Public oManipulador As Manipulador

* - Instancia o objeto manipulador
oManipulador = Createobject("Manipulador")

Select BI

oGrid = SBO.Pageframe1.Page1.Cont1.Grid1
For i = 1 to oGrid.ColumnCount 
        IF oGRid.Columns(i).controlsource == "BI.LOBS3"
           Bindevent(oGrid,"DblClick", oManipulador, "OnDblClick")
       Endif
EndFor

Define Class Manipulador As Custom
	Procedure OnDblClick
	Messagebox("you have dblclick on the right column")
	Return
	Endproc
Enddefine
Thank you for your help,
Best regards
Ls
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform