ME enrede
Publicado: Jue Dic 02, 2004 7:49 am
Kiero tomar un valor de un arreglo ke pertenece a tForm, en la cual hay un
tGroup ke contiene tComboBox, oEdit,
Al cambiar el valor del tCombo, kiero tomar el valor de ese array en la
posicion ke seleccione del tCombo, lo he intentado asi:
WITH OBJECT ::oCbx := TComboBox():New( ::aGroups[nGroup][1] )
//[nGroup]
:SetBounds( 100, 30, 360, 125 )
:aItems := aItems
:nIndex := 1
:cTooltip := "Artículos de Linea"
:nStyle := csDROPDOWNLIST
:OnChange := {|Self| ::CalcMonto( ::oPrecios:aItems[
::oCbx:nIndex ] ) }
//:OnChange := {|oSender| ::CalcMonto( ::oPrecios:aItems[
::oCbx:nIndex ] ) }
//:OnChange := {|| ::CalcMonto( ::aPrecios[ ::oCbx:nIndex ] ) }
:Create()
END
Pero me marca error, aunke estan como comentario pero asi los he intentado.
Gracias
tGroup ke contiene tComboBox, oEdit,
Al cambiar el valor del tCombo, kiero tomar el valor de ese array en la
posicion ke seleccione del tCombo, lo he intentado asi:
WITH OBJECT ::oCbx := TComboBox():New( ::aGroups[nGroup][1] )
//[nGroup]
:SetBounds( 100, 30, 360, 125 )
:aItems := aItems
:nIndex := 1
:cTooltip := "Artículos de Linea"
:nStyle := csDROPDOWNLIST
:OnChange := {|Self| ::CalcMonto( ::oPrecios:aItems[
::oCbx:nIndex ] ) }
//:OnChange := {|oSender| ::CalcMonto( ::oPrecios:aItems[
::oCbx:nIndex ] ) }
//:OnChange := {|| ::CalcMonto( ::aPrecios[ ::oCbx:nIndex ] ) }
:Create()
END
Pero me marca error, aunke estan como comentario pero asi los he intentado.
Gracias