Duda sobre HBClass
Posted: Fri Jun 01, 2007 7:38 am
Muy buenas, tengo una duda para acceder a los datos que me crea AddMultiData, recorriendo el array que me crea pero no me introduce los valores de las variables, os mando el código y así lo vemos mejor:
Con esta funcion me creo el objeto para crearme las variables del modo, por ejemplo:
:=varTOclass()
objetocodigo
* y el código que me lo crea es:
_HB_CLASS tAux
method varTOclass() class CDIt
local nScope
nScope := 1
::s_oClass := IIF(.F.,,HBClass():new("tAux",__CLS_PARAM ( "TControl" ) ) )
for i = 1 to len(::aVars)
::s_oClass:AddMultiData(,::aVars[i,2] ,iif(.F.,1,iif(.F.,2,iif(.F.,4,nScope) ) ) + iif(.F.,16,0 ),{::aVars[i,1]},.F.,.F. )
next
::s_oClass:Create()
return ::s_oClass:Instance() AS CLASS tAux
* Y lo que quiero es pasar todos los valores del array a un array mio, pero es que _ si están pero los valores no, mirar este es mi código:
method KnockDatas(c) class CDIt
local i
for i=1 to len(::s_oClass:aDatas)
msginfo(::s_oClass:aDatas[HB_OO_DATA_VALUE],::aVars[i,1])
::aVars[i,2]:=::s_oClass:aDatas[HB_OO_DATA_VALUE]
next
return
¿ ESTOY HACIENDO LAS COSAS BIEN ?
¿ COMO PODRÍA HACERLO ?
Un Saludo. y Mil Gracias.
Con esta funcion me creo el objeto para crearme las variables del modo, por ejemplo:
:=varTOclass()
objetocodigo
* y el código que me lo crea es:
_HB_CLASS tAux
method varTOclass() class CDIt
local nScope
nScope := 1
::s_oClass := IIF(.F.,,HBClass():new("tAux",__CLS_PARAM ( "TControl" ) ) )
for i = 1 to len(::aVars)
::s_oClass:AddMultiData(,::aVars[i,2] ,iif(.F.,1,iif(.F.,2,iif(.F.,4,nScope) ) ) + iif(.F.,16,0 ),{::aVars[i,1]},.F.,.F. )
next
::s_oClass:Create()
return ::s_oClass:Instance() AS CLASS tAux
* Y lo que quiero es pasar todos los valores del array a un array mio, pero es que _ si están pero los valores no, mirar este es mi código:
method KnockDatas(c) class CDIt
local i
for i=1 to len(::s_oClass:aDatas)
msginfo(::s_oClass:aDatas[HB_OO_DATA_VALUE],::aVars[i,1])
::aVars[i,2]:=::s_oClass:aDatas[HB_OO_DATA_VALUE]
next
return
¿ ESTOY HACIENDO LAS COSAS BIEN ?
¿ COMO PODRÍA HACERLO ?
Un Saludo. y Mil Gracias.