>>PUBLIC oManipulador as Manipulador >> >>*!* - Instancia o objeto manipulador >>oManipulador = CREATEOBJECT("Manipulador") >> >> >>loGrid = SFT.PAGEFRAME1.PAGE1.CONT1.GRID1 >> >>* Set the ControlSource for each column >>*loGrid.Column1.ControlSource = "FI.ALTURA" >>*loGrid.Column5.ControlSource = "FI.ESPESSURA" >>*loGrid.Column8.ControlSource = "FI.LARGURA" >>*loGrid.Column9.ControlSource = "FI.PARTES" >> >> >>* Bind the event to Column1 >>BINDEVENT(loGrid.Column1, "AfterRowColChange", oManipulador, "CalculateTotal") >> >>* Bind the event to Column5 >>BINDEVENT(loGrid.Column5, "AfterRowColChange", oManipulador, "CalculateTotal") >> >>* Bind the event to Column8 >>BINDEVENT(loGrid.Column8, "AfterRowColChange", oManipulador, "CalculateTotal") >> >>* Bind the event to Column9 >>BINDEVENT(loGrid.Column9, "AfterRowColChange", oManipulador, "CalculateTotal") >> >>DEFINE CLASS Manipulador AS Session >>LPARAMETERS nColIndex >> >>* Define the event handler method directly >>PROCEDURE CalculateTotal >> ? "CalculateTotal method called" && No message was return ?? >> loGrid.Column13.text1.value = VAL(loGrid.Column1.text1.value * loGrid.Column5.text1.value * loGrid.Column8.text1.value * loGrid.Column9.text1.value) >> >>ENDPROC >>enddefine >>>>
>loGrid.Column13.ControlSource = "=(loGrid.Column1.text1.value * loGrid.Column5.text1.value * loGrid.Column8.text1.value * loGrid.Column9.text1.value)" >Adding the fields might be even more simple. It was "(" to be used? Thank you. I never remember it.