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
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