In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
dbcombobox
dbcombobox
Buenas,
tengo el siguiente código para rellenar un dbcombobox y es imposible, he
probado todas las formas y no consigo que me despliegue las lista de valores
que contiene una consulta, solo me muestra un valor .
METHOD FormInitialize( oSender ) CLASS TForm2
local array1:={}
array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
FORMADOC")
for i=1 to len(array1)
if ::oDBComboBox1:addItem(array1[1])
msgalert(array1[1]) //aki me muestra correctamete todos los
valores por pantalla
end if
next
return nil
tengo el siguiente código para rellenar un dbcombobox y es imposible, he
probado todas las formas y no consigo que me despliegue las lista de valores
que contiene una consulta, solo me muestra un valor .
METHOD FormInitialize( oSender ) CLASS TForm2
local array1:={}
array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
FORMADOC")
for i=1 to len(array1)
if ::oDBComboBox1:addItem(array1[1])
msgalert(array1[1]) //aki me muestra correctamete todos los
valores por pantalla
end if
next
return nil
dbcombobox
Arturo,
Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo que
construya primeramente una matriz unidemsional y se la asigne a la propiedad
aItems del control.
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer team
http://www.xailer.com
http://www.xailer.info
"Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
> Buenas,
> tengo el siguiente código para rellenar un dbcombobox y es imposible, he
> probado todas las formas y no consigo que me despliegue las lista de
> valores
> que contiene una consulta, solo me muestra un valor .
>
>
>
> METHOD FormInitialize( oSender ) CLASS TForm2
>
> local array1:={}
>
>
> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
> FORMADOC")
>
>
>
> for i=1 to len(array1)
>
> if ::oDBComboBox1:addItem(array1[1])
> msgalert(array1[1]) //aki me muestra correctamete todos los
> valores por pantalla
> end if
>
> next
>
> return nil
>
Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo que
construya primeramente una matriz unidemsional y se la asigne a la propiedad
aItems del control.
Un saludo,
--
Ignacio Ortiz de Zúñiga
Xailer team
http://www.xailer.com
http://www.xailer.info
"Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
> Buenas,
> tengo el siguiente código para rellenar un dbcombobox y es imposible, he
> probado todas las formas y no consigo que me despliegue las lista de
> valores
> que contiene una consulta, solo me muestra un valor .
>
>
>
> METHOD FormInitialize( oSender ) CLASS TForm2
>
> local array1:={}
>
>
> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
> FORMADOC")
>
>
>
> for i=1 to len(array1)
>
> if ::oDBComboBox1:addItem(array1[1])
> msgalert(array1[1]) //aki me muestra correctamete todos los
> valores por pantalla
> end if
>
> next
>
> return nil
>
dbcombobox
Ignacio,
me resulta dificil contrul una replica excta ya que esta con base de datos
oracle:
he intentado llenar la el combo como me indicas,
en codigo integro es este:
------- evento inicio del formulario que contiene el combo -----
METHOD FormInitialize( oSender ) CLASS TForm2
local array:={"UNO","DOS"}
::oDBComboBox1:AITEMS:=array
------- abro el dataset que contiene los valores -----------------
WITH OBJECT ::oSQLFORMADOC
:oDatasource:=AppData:oDataSource
:CSELECT:="select DESCFORMADOC from FORMADOC"
:lopen:=.t.
END WITH
::oDBComboBox1:oDataSet := ::oSQLFORMADOC
RETURN Nil
"Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
> que construya primeramente una matriz unidemsional y se la asigne a la
> propiedad aItems del control.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> Xailer team
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>> Buenas,
>> tengo el siguiente código para rellenar un dbcombobox y es imposible, he
>> probado todas las formas y no consigo que me despliegue las lista de
>> valores
>> que contiene una consulta, solo me muestra un valor .
>>
>>
>>
>> METHOD FormInitialize( oSender ) CLASS TForm2
>>
>> local array1:={}
>>
>>
>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>> FORMADOC")
>>
>>
>>
>> for i=1 to len(array1)
>>
>> if ::oDBComboBox1:addItem(array1[1])
>> msgalert(array1[1]) //aki me muestra correctamete todos los
>> valores por pantalla
>> end if
>>
>> next
>>
>> return nil
>>
>
>
me resulta dificil contrul una replica excta ya que esta con base de datos
oracle:
he intentado llenar la el combo como me indicas,
en codigo integro es este:
------- evento inicio del formulario que contiene el combo -----
METHOD FormInitialize( oSender ) CLASS TForm2
local array:={"UNO","DOS"}
::oDBComboBox1:AITEMS:=array
------- abro el dataset que contiene los valores -----------------
WITH OBJECT ::oSQLFORMADOC
:oDatasource:=AppData:oDataSource
:CSELECT:="select DESCFORMADOC from FORMADOC"
:lopen:=.t.
END WITH
::oDBComboBox1:oDataSet := ::oSQLFORMADOC
RETURN Nil
"Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
> que construya primeramente una matriz unidemsional y se la asigne a la
> propiedad aItems del control.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> Xailer team
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>> Buenas,
>> tengo el siguiente código para rellenar un dbcombobox y es imposible, he
>> probado todas las formas y no consigo que me despliegue las lista de
>> valores
>> que contiene una consulta, solo me muestra un valor .
>>
>>
>>
>> METHOD FormInitialize( oSender ) CLASS TForm2
>>
>> local array1:={}
>>
>>
>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>> FORMADOC")
>>
>>
>>
>> for i=1 to len(array1)
>>
>> if ::oDBComboBox1:addItem(array1[1])
>> msgalert(array1[1]) //aki me muestra correctamete todos los
>> valores por pantalla
>> end if
>>
>> next
>>
>> return nil
>>
>
>
- ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
dbcombobox
Arturo,
Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
correctamente el control a un campo del dataset, ya que cuando no existe
dicho enlace el control se comporta como de sólo lectura y no es posible ni
siquiera desplegar la lista del mismo. En definitiva no vera ninguna
diferencia al entrar en modo edición o alta en el dataset.
Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de que se
realice una asignación erronea de esa propiedad el IDE lo advierte a través
de un mensaje del tipo LOGDEBUG.
Puede comprobar que el enlace es correcto comprobando una vez que esté
abierto el dataset, que el tipo de la propiedad oDataField es del tipo
'objeto' y no de tipo 'caracter'
Un saludo,
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
> me resulta dificil contrul una replica excta ya que esta con base de datos
> oracle:
> he intentado llenar la el combo como me indicas,
> en codigo integro es este:
>
>
> ------- evento inicio del formulario que contiene el combo -----
>
> METHOD FormInitialize( oSender ) CLASS TForm2
>
> local array:={"UNO","DOS"}
>
> ::oDBComboBox1:AITEMS:=array
>
>
> ------- abro el dataset que contiene los valores -----------------
>
> WITH OBJECT ::oSQLFORMADOC
> :oDatasource:=AppData:oDataSource
> :CSELECT:="select DESCFORMADOC from FORMADOC"
> :lopen:=.t.
> END WITH
>
>
> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>
> RETURN Nil
>
>
>
>
>
>
>
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Arturo,
>>
>> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
>> que construya primeramente una matriz unidemsional y se la asigne a la
>> propiedad aItems del control.
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> Xailer team
>> http://www.xailer.com
>> http://www.xailer.info
>>
>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>> Buenas,
>>> tengo el siguiente código para rellenar un dbcombobox y es imposible, he
>>> probado todas las formas y no consigo que me despliegue las lista de
>>> valores
>>> que contiene una consulta, solo me muestra un valor .
>>>
>>>
>>>
>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>
>>> local array1:={}
>>>
>>>
>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>> FORMADOC")
>>>
>>>
>>>
>>> for i=1 to len(array1)
>>>
>>> if ::oDBComboBox1:addItem(array1[1])
>>> msgalert(array1[1]) //aki me muestra correctamete todos los
>>> valores por pantalla
>>> end if
>>>
>>> next
>>>
>>> return nil
>>>
>>
>>
>
>
Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
correctamente el control a un campo del dataset, ya que cuando no existe
dicho enlace el control se comporta como de sólo lectura y no es posible ni
siquiera desplegar la lista del mismo. En definitiva no vera ninguna
diferencia al entrar en modo edición o alta en el dataset.
Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de que se
realice una asignación erronea de esa propiedad el IDE lo advierte a través
de un mensaje del tipo LOGDEBUG.
Puede comprobar que el enlace es correcto comprobando una vez que esté
abierto el dataset, que el tipo de la propiedad oDataField es del tipo
'objeto' y no de tipo 'caracter'
Un saludo,
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Ignacio,
> me resulta dificil contrul una replica excta ya que esta con base de datos
> oracle:
> he intentado llenar la el combo como me indicas,
> en codigo integro es este:
>
>
> ------- evento inicio del formulario que contiene el combo -----
>
> METHOD FormInitialize( oSender ) CLASS TForm2
>
> local array:={"UNO","DOS"}
>
> ::oDBComboBox1:AITEMS:=array
>
>
> ------- abro el dataset que contiene los valores -----------------
>
> WITH OBJECT ::oSQLFORMADOC
> :oDatasource:=AppData:oDataSource
> :CSELECT:="select DESCFORMADOC from FORMADOC"
> :lopen:=.t.
> END WITH
>
>
> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>
> RETURN Nil
>
>
>
>
>
>
>
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Arturo,
>>
>> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
>> que construya primeramente una matriz unidemsional y se la asigne a la
>> propiedad aItems del control.
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> Xailer team
>> http://www.xailer.com
>> http://www.xailer.info
>>
>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>> Buenas,
>>> tengo el siguiente código para rellenar un dbcombobox y es imposible, he
>>> probado todas las formas y no consigo que me despliegue las lista de
>>> valores
>>> que contiene una consulta, solo me muestra un valor .
>>>
>>>
>>>
>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>
>>> local array1:={}
>>>
>>>
>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>> FORMADOC")
>>>
>>>
>>>
>>> for i=1 to len(array1)
>>>
>>> if ::oDBComboBox1:addItem(array1[1])
>>> msgalert(array1[1]) //aki me muestra correctamete todos los
>>> valores por pantalla
>>> end if
>>>
>>> next
>>>
>>> return nil
>>>
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
dbcombobox
Hola Ignacio,
te envío el ejemplo del dbcombo y de paso el ejemplo de un control dbEditBtn
que no hace nada en el evento onbtnClick.
Quizás este haciendo algo mal........
GRACIAS
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
> correctamente el control a un campo del dataset, ya que cuando no existe
> dicho enlace el control se comporta como de sólo lectura y no es posible
> ni
> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
> diferencia al entrar en modo edición o alta en el dataset.
>
> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de que
> se
> realice una asignación erronea de esa propiedad el IDE lo advierte a
> través
> de un mensaje del tipo LOGDEBUG.
>
> Puede comprobar que el enlace es correcto comprobando una vez que esté
> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
> 'objeto' y no de tipo 'caracter'
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> [Equipo de Xailer/Xailer team]
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Ignacio,
>> me resulta dificil contrul una replica excta ya que esta con base de
>> datos
>> oracle:
>> he intentado llenar la el combo como me indicas,
>> en codigo integro es este:
>>
>>
>> ------- evento inicio del formulario que contiene el combo -----
>>
>> METHOD FormInitialize( oSender ) CLASS TForm2
>>
>> local array:={"UNO","DOS"}
>>
>> ::oDBComboBox1:AITEMS:=array
>>
>>
>> ------- abro el dataset que contiene los valores -----------------
>>
>> WITH OBJECT ::oSQLFORMADOC
>> :oDatasource:=AppData:oDataSource
>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>> :lopen:=.t.
>> END WITH
>>
>>
>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>
>> RETURN Nil
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Arturo,
>>>
>>> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>> propiedad aItems del control.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> Xailer team
>>> http://www.xailer.com
>>> http://www.xailer.info
>>>
>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>> Buenas,
>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>> he
>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>> valores
>>>> que contiene una consulta, solo me muestra un valor .
>>>>
>>>>
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>
>>>> local array1:={}
>>>>
>>>>
>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>> FORMADOC")
>>>>
>>>>
>>>>
>>>> for i=1 to len(array1)
>>>>
>>>> if ::oDBComboBox1:addItem(array1[1])
>>>> msgalert(array1[1]) //aki me muestra correctamete todos los
>>>> valores por pantalla
>>>> end if
>>>>
>>>> next
>>>>
>>>> return nil
>>>>
>>>
>>>
>>
>>
Attached files ejemplo dbcombo.rar (9.9 KB)Â
te envío el ejemplo del dbcombo y de paso el ejemplo de un control dbEditBtn
que no hace nada en el evento onbtnClick.
Quizás este haciendo algo mal........
GRACIAS
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
> correctamente el control a un campo del dataset, ya que cuando no existe
> dicho enlace el control se comporta como de sólo lectura y no es posible
> ni
> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
> diferencia al entrar en modo edición o alta en el dataset.
>
> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de que
> se
> realice una asignación erronea de esa propiedad el IDE lo advierte a
> través
> de un mensaje del tipo LOGDEBUG.
>
> Puede comprobar que el enlace es correcto comprobando una vez que esté
> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
> 'objeto' y no de tipo 'caracter'
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> [Equipo de Xailer/Xailer team]
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Ignacio,
>> me resulta dificil contrul una replica excta ya que esta con base de
>> datos
>> oracle:
>> he intentado llenar la el combo como me indicas,
>> en codigo integro es este:
>>
>>
>> ------- evento inicio del formulario que contiene el combo -----
>>
>> METHOD FormInitialize( oSender ) CLASS TForm2
>>
>> local array:={"UNO","DOS"}
>>
>> ::oDBComboBox1:AITEMS:=array
>>
>>
>> ------- abro el dataset que contiene los valores -----------------
>>
>> WITH OBJECT ::oSQLFORMADOC
>> :oDatasource:=AppData:oDataSource
>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>> :lopen:=.t.
>> END WITH
>>
>>
>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>
>> RETURN Nil
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Arturo,
>>>
>>> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>> propiedad aItems del control.
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> Xailer team
>>> http://www.xailer.com
>>> http://www.xailer.info
>>>
>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>> Buenas,
>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>> he
>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>> valores
>>>> que contiene una consulta, solo me muestra un valor .
>>>>
>>>>
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>
>>>> local array1:={}
>>>>
>>>>
>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>> FORMADOC")
>>>>
>>>>
>>>>
>>>> for i=1 to len(array1)
>>>>
>>>> if ::oDBComboBox1:addItem(array1[1])
>>>> msgalert(array1[1]) //aki me muestra correctamete todos los
>>>> valores por pantalla
>>>> end if
>>>>
>>>> next
>>>>
>>>> return nil
>>>>
>>>
>>>
>>
>>
Attached files ejemplo dbcombo.rar (9.9 KB)Â
- ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
dbcombobox
Arturo,
Le reenvio el proyecto modificado para que le funcione.
Le ruego que me disculppe de antemano por mis palabras pero tengo que
comentarle que aparentemente no se ha tomado el tiempo necesario ni siquiera
para estudiar los ejemplos de datacontrols que se incluyen con Xailer, ni
tampoco en leer mis Emails anteriores en este mismo hilo. Si estoy
equivocado le pido mil disculpas por anticipado.
No le funciona por los siguientes motivos:
- No ha asignado la propiedad TDBEditBtn:oDataset al dataset ::oSqlQuery1
- Tampoco ha asignado la propiedad TDBEditBtn:oDataField al campo 'data' del
objeto ::oSqlQuery1
- No ha entrado en edición con ::oSqlQuery1:Edit() o ::oSqlQuery1:AddNew()
Le recomiendo que revise la introducción a los datacontrols que se incluye
en la ayuda y revise todos los ejemplos que incluye Xailer al respecto, que
son muchos.
Un cordial saludo,
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
noticias:4ba8e4ac$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola Ignacio,
> te envío el ejemplo del dbcombo y de paso el ejemplo de un control
> dbEditBtn
> que no hace nada en el evento onbtnClick.
> Quizás este haciendo algo mal........
> GRACIAS
>
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
> mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Arturo,
>>
>> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
>> correctamente el control a un campo del dataset, ya que cuando no existe
>> dicho enlace el control se comporta como de sólo lectura y no es posible
>> ni
>> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
>> diferencia al entrar en modo edición o alta en el dataset.
>>
>> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
>> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de que
>> se
>> realice una asignación erronea de esa propiedad el IDE lo advierte a
>> través
>> de un mensaje del tipo LOGDEBUG.
>>
>> Puede comprobar que el enlace es correcto comprobando una vez que esté
>> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
>> 'objeto' y no de tipo 'caracter'
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> [Equipo de Xailer/Xailer team]
>> http://www.xailer.com
>> http://www.xailer.info
>>
>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
>> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Ignacio,
>>> me resulta dificil contrul una replica excta ya que esta con base de
>>> datos
>>> oracle:
>>> he intentado llenar la el combo como me indicas,
>>> en codigo integro es este:
>>>
>>>
>>> ------- evento inicio del formulario que contiene el combo -----
>>>
>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>
>>> local array:={"UNO","DOS"}
>>>
>>> ::oDBComboBox1:AITEMS:=array
>>>
>>>
>>> ------- abro el dataset que contiene los valores -----------------
>>>
>>> WITH OBJECT ::oSQLFORMADOC
>>> :oDatasource:=AppData:oDataSource
>>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>>> :lopen:=.t.
>>> END WITH
>>>
>>>
>>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>>
>>> RETURN Nil
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Arturo,
>>>>
>>>> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
>>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>>> propiedad aItems del control.
>>>>
>>>> Un saludo,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> Xailer team
>>>> http://www.xailer.com
>>>> http://www.xailer.info
>>>>
>>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>>> Buenas,
>>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>>> he
>>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>>> valores
>>>>> que contiene una consulta, solo me muestra un valor .
>>>>>
>>>>>
>>>>>
>>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>>
>>>>> local array1:={}
>>>>>
>>>>>
>>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>>> FORMADOC")
>>>>>
>>>>>
>>>>>
>>>>> for i=1 to len(array1)
>>>>>
>>>>> if ::oDBComboBox1:addItem(array1[1])
>>>>> msgalert(array1[1]) //aki me muestra correctamete todos
>>>>> los
>>>>> valores por pantalla
>>>>> end if
>>>>>
>>>>> next
>>>>>
>>>>> return nil
>>>>>
>>>>
>>>>
>>>
>>>
>
>
>
Le reenvio el proyecto modificado para que le funcione.
Le ruego que me disculppe de antemano por mis palabras pero tengo que
comentarle que aparentemente no se ha tomado el tiempo necesario ni siquiera
para estudiar los ejemplos de datacontrols que se incluyen con Xailer, ni
tampoco en leer mis Emails anteriores en este mismo hilo. Si estoy
equivocado le pido mil disculpas por anticipado.
No le funciona por los siguientes motivos:
- No ha asignado la propiedad TDBEditBtn:oDataset al dataset ::oSqlQuery1
- Tampoco ha asignado la propiedad TDBEditBtn:oDataField al campo 'data' del
objeto ::oSqlQuery1
- No ha entrado en edición con ::oSqlQuery1:Edit() o ::oSqlQuery1:AddNew()
Le recomiendo que revise la introducción a los datacontrols que se incluye
en la ayuda y revise todos los ejemplos que incluye Xailer al respecto, que
son muchos.
Un cordial saludo,
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
noticias:4ba8e4ac$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola Ignacio,
> te envío el ejemplo del dbcombo y de paso el ejemplo de un control
> dbEditBtn
> que no hace nada en el evento onbtnClick.
> Quizás este haciendo algo mal........
> GRACIAS
>
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
> mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Arturo,
>>
>> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
>> correctamente el control a un campo del dataset, ya que cuando no existe
>> dicho enlace el control se comporta como de sólo lectura y no es posible
>> ni
>> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
>> diferencia al entrar en modo edición o alta en el dataset.
>>
>> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
>> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de que
>> se
>> realice una asignación erronea de esa propiedad el IDE lo advierte a
>> través
>> de un mensaje del tipo LOGDEBUG.
>>
>> Puede comprobar que el enlace es correcto comprobando una vez que esté
>> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
>> 'objeto' y no de tipo 'caracter'
>>
>> Un saludo,
>>
>> --
>> Ignacio Ortiz de Zúñiga
>> [Equipo de Xailer/Xailer team]
>> http://www.xailer.com
>> http://www.xailer.info
>>
>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
>> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Ignacio,
>>> me resulta dificil contrul una replica excta ya que esta con base de
>>> datos
>>> oracle:
>>> he intentado llenar la el combo como me indicas,
>>> en codigo integro es este:
>>>
>>>
>>> ------- evento inicio del formulario que contiene el combo -----
>>>
>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>
>>> local array:={"UNO","DOS"}
>>>
>>> ::oDBComboBox1:AITEMS:=array
>>>
>>>
>>> ------- abro el dataset que contiene los valores -----------------
>>>
>>> WITH OBJECT ::oSQLFORMADOC
>>> :oDatasource:=AppData:oDataSource
>>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>>> :lopen:=.t.
>>> END WITH
>>>
>>>
>>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>>
>>> RETURN Nil
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Arturo,
>>>>
>>>> Mandenos un ejemplo que reproduzca el error. No obstante, le recomiendo
>>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>>> propiedad aItems del control.
>>>>
>>>> Un saludo,
>>>>
>>>> --
>>>> Ignacio Ortiz de Zúñiga
>>>> Xailer team
>>>> http://www.xailer.com
>>>> http://www.xailer.info
>>>>
>>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>>> Buenas,
>>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>>> he
>>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>>> valores
>>>>> que contiene una consulta, solo me muestra un valor .
>>>>>
>>>>>
>>>>>
>>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>>
>>>>> local array1:={}
>>>>>
>>>>>
>>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>>> FORMADOC")
>>>>>
>>>>>
>>>>>
>>>>> for i=1 to len(array1)
>>>>>
>>>>> if ::oDBComboBox1:addItem(array1[1])
>>>>> msgalert(array1[1]) //aki me muestra correctamete todos
>>>>> los
>>>>> valores por pantalla
>>>>> end if
>>>>>
>>>>> next
>>>>>
>>>>> return nil
>>>>>
>>>>
>>>>
>>>
>>>
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
- ignacio
- Site Admin
- Mensajes: 9441
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
dbcombobox
el proyecto
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
mensaje de noticias:4ba9d4d7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Le reenvio el proyecto modificado para que le funcione.
>
> Le ruego que me disculppe de antemano por mis palabras pero tengo que
> comentarle que aparentemente no se ha tomado el tiempo necesario ni
> siquiera para estudiar los ejemplos de datacontrols que se incluyen con
> Xailer, ni tampoco en leer mis Emails anteriores en este mismo hilo. Si
> estoy equivocado le pido mil disculpas por anticipado.
>
> No le funciona por los siguientes motivos:
>
> - No ha asignado la propiedad TDBEditBtn:oDataset al dataset ::oSqlQuery1
> - Tampoco ha asignado la propiedad TDBEditBtn:oDataField al campo 'data'
> del objeto ::oSqlQuery1
> - No ha entrado en edición con ::oSqlQuery1:Edit() o ::oSqlQuery1:AddNew()
>
> Le recomiendo que revise la introducción a los datacontrols que se incluye
> en la ayuda y revise todos los ejemplos que incluye Xailer al respecto,
> que son muchos.
>
> Un cordial saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> [Equipo de Xailer/Xailer team]
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
> noticias:4ba8e4ac$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hola Ignacio,
>> te envío el ejemplo del dbcombo y de paso el ejemplo de un control
>> dbEditBtn
>> que no hace nada en el evento onbtnClick.
>> Quizás este haciendo algo mal........
>> GRACIAS
>>
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
>> mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Arturo,
>>>
>>> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
>>> correctamente el control a un campo del dataset, ya que cuando no existe
>>> dicho enlace el control se comporta como de sólo lectura y no es posible
>>> ni
>>> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
>>> diferencia al entrar en modo edición o alta en el dataset.
>>>
>>> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
>>> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de
>>> que se
>>> realice una asignación erronea de esa propiedad el IDE lo advierte a
>>> través
>>> de un mensaje del tipo LOGDEBUG.
>>>
>>> Puede comprobar que el enlace es correcto comprobando una vez que esté
>>> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
>>> 'objeto' y no de tipo 'caracter'
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> [Equipo de Xailer/Xailer team]
>>> http://www.xailer.com
>>> http://www.xailer.info
>>>
>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
>>> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Ignacio,
>>>> me resulta dificil contrul una replica excta ya que esta con base de
>>>> datos
>>>> oracle:
>>>> he intentado llenar la el combo como me indicas,
>>>> en codigo integro es este:
>>>>
>>>>
>>>> ------- evento inicio del formulario que contiene el combo -----
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>
>>>> local array:={"UNO","DOS"}
>>>>
>>>> ::oDBComboBox1:AITEMS:=array
>>>>
>>>>
>>>> ------- abro el dataset que contiene los valores -----------------
>>>>
>>>> WITH OBJECT ::oSQLFORMADOC
>>>> :oDatasource:=AppData:oDataSource
>>>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>>>> :lopen:=.t.
>>>> END WITH
>>>>
>>>>
>>>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>>>
>>>> RETURN Nil
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>>>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>> Arturo,
>>>>>
>>>>> Mandenos un ejemplo que reproduzca el error. No obstante, le
>>>>> recomiendo
>>>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>>>> propiedad aItems del control.
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> Xailer team
>>>>> http://www.xailer.com
>>>>> http://www.xailer.info
>>>>>
>>>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>>>> Buenas,
>>>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>>>> he
>>>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>>>> valores
>>>>>> que contiene una consulta, solo me muestra un valor .
>>>>>>
>>>>>>
>>>>>>
>>>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>>>
>>>>>> local array1:={}
>>>>>>
>>>>>>
>>>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>>>> FORMADOC")
>>>>>>
>>>>>>
>>>>>>
>>>>>> for i=1 to len(array1)
>>>>>>
>>>>>> if ::oDBComboBox1:addItem(array1[1])
>>>>>> msgalert(array1[1]) //aki me muestra correctamete todos
>>>>>> los
>>>>>> valores por pantalla
>>>>>> end if
>>>>>>
>>>>>> next
>>>>>>
>>>>>> return nil
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>
>>
>>
--
Attached files ejemplo.zip (2.5 KB)Â
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer/Xailer team]
http://www.xailer.com
http://www.xailer.info
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
mensaje de noticias:4ba9d4d7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Le reenvio el proyecto modificado para que le funcione.
>
> Le ruego que me disculppe de antemano por mis palabras pero tengo que
> comentarle que aparentemente no se ha tomado el tiempo necesario ni
> siquiera para estudiar los ejemplos de datacontrols que se incluyen con
> Xailer, ni tampoco en leer mis Emails anteriores en este mismo hilo. Si
> estoy equivocado le pido mil disculpas por anticipado.
>
> No le funciona por los siguientes motivos:
>
> - No ha asignado la propiedad TDBEditBtn:oDataset al dataset ::oSqlQuery1
> - Tampoco ha asignado la propiedad TDBEditBtn:oDataField al campo 'data'
> del objeto ::oSqlQuery1
> - No ha entrado en edición con ::oSqlQuery1:Edit() o ::oSqlQuery1:AddNew()
>
> Le recomiendo que revise la introducción a los datacontrols que se incluye
> en la ayuda y revise todos los ejemplos que incluye Xailer al respecto,
> que son muchos.
>
> Un cordial saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> [Equipo de Xailer/Xailer team]
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
> noticias:4ba8e4ac$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hola Ignacio,
>> te envío el ejemplo del dbcombo y de paso el ejemplo de un control
>> dbEditBtn
>> que no hace nada en el evento onbtnClick.
>> Quizás este haciendo algo mal........
>> GRACIAS
>>
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
>> mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Arturo,
>>>
>>> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
>>> correctamente el control a un campo del dataset, ya que cuando no existe
>>> dicho enlace el control se comporta como de sólo lectura y no es posible
>>> ni
>>> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
>>> diferencia al entrar en modo edición o alta en el dataset.
>>>
>>> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
>>> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de
>>> que se
>>> realice una asignación erronea de esa propiedad el IDE lo advierte a
>>> través
>>> de un mensaje del tipo LOGDEBUG.
>>>
>>> Puede comprobar que el enlace es correcto comprobando una vez que esté
>>> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
>>> 'objeto' y no de tipo 'caracter'
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> [Equipo de Xailer/Xailer team]
>>> http://www.xailer.com
>>> http://www.xailer.info
>>>
>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
>>> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Ignacio,
>>>> me resulta dificil contrul una replica excta ya que esta con base de
>>>> datos
>>>> oracle:
>>>> he intentado llenar la el combo como me indicas,
>>>> en codigo integro es este:
>>>>
>>>>
>>>> ------- evento inicio del formulario que contiene el combo -----
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>
>>>> local array:={"UNO","DOS"}
>>>>
>>>> ::oDBComboBox1:AITEMS:=array
>>>>
>>>>
>>>> ------- abro el dataset que contiene los valores -----------------
>>>>
>>>> WITH OBJECT ::oSQLFORMADOC
>>>> :oDatasource:=AppData:oDataSource
>>>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>>>> :lopen:=.t.
>>>> END WITH
>>>>
>>>>
>>>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>>>
>>>> RETURN Nil
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>>>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>> Arturo,
>>>>>
>>>>> Mandenos un ejemplo que reproduzca el error. No obstante, le
>>>>> recomiendo
>>>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>>>> propiedad aItems del control.
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> Xailer team
>>>>> http://www.xailer.com
>>>>> http://www.xailer.info
>>>>>
>>>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>>>> Buenas,
>>>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>>>> he
>>>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>>>> valores
>>>>>> que contiene una consulta, solo me muestra un valor .
>>>>>>
>>>>>>
>>>>>>
>>>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>>>
>>>>>> local array1:={}
>>>>>>
>>>>>>
>>>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>>>> FORMADOC")
>>>>>>
>>>>>>
>>>>>>
>>>>>> for i=1 to len(array1)
>>>>>>
>>>>>> if ::oDBComboBox1:addItem(array1[1])
>>>>>> msgalert(array1[1]) //aki me muestra correctamete todos
>>>>>> los
>>>>>> valores por pantalla
>>>>>> end if
>>>>>>
>>>>>> next
>>>>>>
>>>>>> return nil
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>
>>
>>
--
Attached files ejemplo.zip (2.5 KB)Â
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
dbcombobox
Buenos días,
no me ha llegado el ejemplo.
En efecto, tanto el dbcombo como el dbbutton SOLO funciona con
::oSqlQuery:Edit() o ::oSqlQuery:AddNew(), mis disculpas,
en mi opinión seria muy interesante nombrar en la ayuda un punto tan
importante.
Siento decirle que se equivoca cuando supone que no he mirado los ejemplos o
no he leido el hilo de los mensajes:
"::oDBComboBox1:oDataSet := ::oSQLFORMADOC"
y la propiedad "::oDBComboBox1:oDatafield:=DESCFORMADOC" en tiempo de
diseño.
"Por lo que cuenta da la sensación que ni siquiera ha conseguido enlazar
correctamente el control a un campo del dataset"
Considero que el foro no solo es una herramienta de reporte de incidencias,
sino un escaparate donde resolver dudas.
Gracias y saludos
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
mensaje news:4ba9d4d7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Le reenvio el proyecto modificado para que le funcione.
>
> Le ruego que me disculppe de antemano por mis palabras pero tengo que
> comentarle que aparentemente no se ha tomado el tiempo necesario ni
> siquiera para estudiar los ejemplos de datacontrols que se incluyen con
> Xailer, ni tampoco en leer mis Emails anteriores en este mismo hilo. Si
> estoy equivocado le pido mil disculpas por anticipado.
>
> No le funciona por los siguientes motivos:
>
> - No ha asignado la propiedad TDBEditBtn:oDataset al dataset ::oSqlQuery1
> - Tampoco ha asignado la propiedad TDBEditBtn:oDataField al campo 'data'
> del objeto ::oSqlQuery1
> - No ha entrado en edición con ::oSqlQuery1:Edit() o ::oSqlQuery1:AddNew()
>
> Le recomiendo que revise la introducción a los datacontrols que se incluye
> en la ayuda y revise todos los ejemplos que incluye Xailer al respecto,
> que son muchos.
>
> Un cordial saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> [Equipo de Xailer/Xailer team]
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
> noticias:4ba8e4ac$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hola Ignacio,
>> te envío el ejemplo del dbcombo y de paso el ejemplo de un control
>> dbEditBtn
>> que no hace nada en el evento onbtnClick.
>> Quizás este haciendo algo mal........
>> GRACIAS
>>
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
>> mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Arturo,
>>>
>>> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
>>> correctamente el control a un campo del dataset, ya que cuando no existe
>>> dicho enlace el control se comporta como de sólo lectura y no es posible
>>> ni
>>> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
>>> diferencia al entrar en modo edición o alta en el dataset.
>>>
>>> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
>>> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de
>>> que se
>>> realice una asignación erronea de esa propiedad el IDE lo advierte a
>>> través
>>> de un mensaje del tipo LOGDEBUG.
>>>
>>> Puede comprobar que el enlace es correcto comprobando una vez que esté
>>> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
>>> 'objeto' y no de tipo 'caracter'
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> [Equipo de Xailer/Xailer team]
>>> http://www.xailer.com
>>> http://www.xailer.info
>>>
>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
>>> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Ignacio,
>>>> me resulta dificil contrul una replica excta ya que esta con base de
>>>> datos
>>>> oracle:
>>>> he intentado llenar la el combo como me indicas,
>>>> en codigo integro es este:
>>>>
>>>>
>>>> ------- evento inicio del formulario que contiene el combo -----
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>
>>>> local array:={"UNO","DOS"}
>>>>
>>>> ::oDBComboBox1:AITEMS:=array
>>>>
>>>>
>>>> ------- abro el dataset que contiene los valores -----------------
>>>>
>>>> WITH OBJECT ::oSQLFORMADOC
>>>> :oDatasource:=AppData:oDataSource
>>>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>>>> :lopen:=.t.
>>>> END WITH
>>>>
>>>>
>>>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>>>
>>>> RETURN Nil
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>>>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>> Arturo,
>>>>>
>>>>> Mandenos un ejemplo que reproduzca el error. No obstante, le
>>>>> recomiendo
>>>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>>>> propiedad aItems del control.
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> Xailer team
>>>>> http://www.xailer.com
>>>>> http://www.xailer.info
>>>>>
>>>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>>>> Buenas,
>>>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>>>> he
>>>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>>>> valores
>>>>>> que contiene una consulta, solo me muestra un valor .
>>>>>>
>>>>>>
>>>>>>
>>>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>>>
>>>>>> local array1:={}
>>>>>>
>>>>>>
>>>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>>>> FORMADOC")
>>>>>>
>>>>>>
>>>>>>
>>>>>> for i=1 to len(array1)
>>>>>>
>>>>>> if ::oDBComboBox1:addItem(array1[1])
>>>>>> msgalert(array1[1]) //aki me muestra correctamete todos
>>>>>> los
>>>>>> valores por pantalla
>>>>>> end if
>>>>>>
>>>>>> next
>>>>>>
>>>>>> return nil
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>
>>
>>
no me ha llegado el ejemplo.
En efecto, tanto el dbcombo como el dbbutton SOLO funciona con
::oSqlQuery:Edit() o ::oSqlQuery:AddNew(), mis disculpas,
en mi opinión seria muy interesante nombrar en la ayuda un punto tan
importante.
Siento decirle que se equivoca cuando supone que no he mirado los ejemplos o
no he leido el hilo de los mensajes:
"::oDBComboBox1:oDataSet := ::oSQLFORMADOC"
y la propiedad "::oDBComboBox1:oDatafield:=DESCFORMADOC" en tiempo de
diseño.
"Por lo que cuenta da la sensación que ni siquiera ha conseguido enlazar
correctamente el control a un campo del dataset"
Considero que el foro no solo es una herramienta de reporte de incidencias,
sino un escaparate donde resolver dudas.
Gracias y saludos
"Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
mensaje news:4ba9d4d7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Arturo,
>
> Le reenvio el proyecto modificado para que le funcione.
>
> Le ruego que me disculppe de antemano por mis palabras pero tengo que
> comentarle que aparentemente no se ha tomado el tiempo necesario ni
> siquiera para estudiar los ejemplos de datacontrols que se incluyen con
> Xailer, ni tampoco en leer mis Emails anteriores en este mismo hilo. Si
> estoy equivocado le pido mil disculpas por anticipado.
>
> No le funciona por los siguientes motivos:
>
> - No ha asignado la propiedad TDBEditBtn:oDataset al dataset ::oSqlQuery1
> - Tampoco ha asignado la propiedad TDBEditBtn:oDataField al campo 'data'
> del objeto ::oSqlQuery1
> - No ha entrado en edición con ::oSqlQuery1:Edit() o ::oSqlQuery1:AddNew()
>
> Le recomiendo que revise la introducción a los datacontrols que se incluye
> en la ayuda y revise todos los ejemplos que incluye Xailer al respecto,
> que son muchos.
>
> Un cordial saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> [Equipo de Xailer/Xailer team]
> http://www.xailer.com
> http://www.xailer.info
>
> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
> noticias:4ba8e4ac$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hola Ignacio,
>> te envío el ejemplo del dbcombo y de paso el ejemplo de un control
>> dbEditBtn
>> que no hace nada en el evento onbtnClick.
>> Quizás este haciendo algo mal........
>> GRACIAS
>>
>>
>>
>>
>> "Ignacio Ortiz de Zúñiga" <NoNameToAvoidSpam@xailer.com> escribió en el
>> mensaje news:4ba8d274$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>> Arturo,
>>>
>>> Por lo que cuenta da la sensación que ni siquiera ha consigido enlazar
>>> correctamente el control a un campo del dataset, ya que cuando no existe
>>> dicho enlace el control se comporta como de sólo lectura y no es posible
>>> ni
>>> siquiera desplegar la lista del mismo. En definitiva no vera ninguna
>>> diferencia al entrar en modo edición o alta en el dataset.
>>>
>>> Compruebe que la propiedad TDBComboBox:oDataField apunta a un campo del
>>> dataset asignado en la propiedad oTDDComboBox:oDataset. En el caso de
>>> que se
>>> realice una asignación erronea de esa propiedad el IDE lo advierte a
>>> través
>>> de un mensaje del tipo LOGDEBUG.
>>>
>>> Puede comprobar que el enlace es correcto comprobando una vez que esté
>>> abierto el dataset, que el tipo de la propiedad oDataField es del tipo
>>> 'objeto' y no de tipo 'caracter'
>>>
>>> Un saludo,
>>>
>>> --
>>> Ignacio Ortiz de Zúñiga
>>> [Equipo de Xailer/Xailer team]
>>> http://www.xailer.com
>>> http://www.xailer.info
>>>
>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje de
>>> noticias:4ba8ab07$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>> Ignacio,
>>>> me resulta dificil contrul una replica excta ya que esta con base de
>>>> datos
>>>> oracle:
>>>> he intentado llenar la el combo como me indicas,
>>>> en codigo integro es este:
>>>>
>>>>
>>>> ------- evento inicio del formulario que contiene el combo -----
>>>>
>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>
>>>> local array:={"UNO","DOS"}
>>>>
>>>> ::oDBComboBox1:AITEMS:=array
>>>>
>>>>
>>>> ------- abro el dataset que contiene los valores -----------------
>>>>
>>>> WITH OBJECT ::oSQLFORMADOC
>>>> :oDatasource:=AppData:oDataSource
>>>> :CSELECT:="select DESCFORMADOC from FORMADOC"
>>>> :lopen:=.t.
>>>> END WITH
>>>>
>>>>
>>>> ::oDBComboBox1:oDataSet := ::oSQLFORMADOC
>>>>
>>>> RETURN Nil
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> "Ignacio Ortiz de Zúñiga" <NoAccount@xailer.com> escribió en el mensaje
>>>> news:4ba4b216$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>>>>> Arturo,
>>>>>
>>>>> Mandenos un ejemplo que reproduzca el error. No obstante, le
>>>>> recomiendo
>>>>> que construya primeramente una matriz unidemsional y se la asigne a la
>>>>> propiedad aItems del control.
>>>>>
>>>>> Un saludo,
>>>>>
>>>>> --
>>>>> Ignacio Ortiz de Zúñiga
>>>>> Xailer team
>>>>> http://www.xailer.com
>>>>> http://www.xailer.info
>>>>>
>>>>> "Arturo" <artcabpla@pagodetributos.com> escribió en el mensaje
>>>>> news:[email=4ba37708@svctag-j7w3v3j....]4ba37708@svctag-j7w3v3j....[/email]
>>>>>> Buenas,
>>>>>> tengo el siguiente código para rellenar un dbcombobox y es imposible,
>>>>>> he
>>>>>> probado todas las formas y no consigo que me despliegue las lista de
>>>>>> valores
>>>>>> que contiene una consulta, solo me muestra un valor .
>>>>>>
>>>>>>
>>>>>>
>>>>>> METHOD FormInitialize( oSender ) CLASS TForm2
>>>>>>
>>>>>> local array1:={}
>>>>>>
>>>>>>
>>>>>> array1:=AppData:oDataSource:QUERYARRAY("SELECT DESCFORMADOC FROM
>>>>>> FORMADOC")
>>>>>>
>>>>>>
>>>>>>
>>>>>> for i=1 to len(array1)
>>>>>>
>>>>>> if ::oDBComboBox1:addItem(array1[1])
>>>>>> msgalert(array1[1]) //aki me muestra correctamete todos
>>>>>> los
>>>>>> valores por pantalla
>>>>>> end if
>>>>>>
>>>>>> next
>>>>>>
>>>>>> return nil
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>
>>
>>