Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Bindevent on specific Grid column
Message
From
11/03/2021 18:19:09
Luis Santos
Biglevel-Soluções Informáticas, Lda
Portugal
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01678862
Message ID:
01678918
Views:
48
>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

That will work only if your grid has AllowCellSelection = .f.
If that i snot the case then you should bind to the column currenct control doubleclick

Hello Borislav,

i cannot be able to make my bindevent working, also i don´t know how to change my coding to bind, like you said , on Current Control.
I also know that my column number is 13, but nothing else more..!

Could you help me please !!

Best regards,
Ls
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform