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.

dbcombobox

Foro de Xailer profesional en español
Responder
Arturo
Mensajes: 77
Registrado: Jue Abr 22, 2010 2:39 pm

dbcombobox

Mensaje por Arturo »

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
NoAccount
Mensajes: 35
Registrado: Mié Sep 16, 2009 10:09 am

dbcombobox

Mensaje por NoAccount »

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
>
Arturo
Mensajes: 77
Registrado: Jue Abr 22, 2010 2:39 pm

dbcombobox

Mensaje por Arturo »

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
>>
>
>
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9441
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

dbcombobox

Mensaje por ignacio »

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
Arturo
Mensajes: 77
Registrado: Jue Abr 22, 2010 2:39 pm

dbcombobox

Mensaje por Arturo »

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)Â
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9441
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

dbcombobox

Mensaje por ignacio »

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
>>>>>
>>>>
>>>>
>>>
>>>
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9441
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:

dbcombobox

Mensaje por ignacio »

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
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arturo
Mensajes: 77
Registrado: Jue Abr 22, 2010 2:39 pm

dbcombobox

Mensaje por Arturo »

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
>>>>>>
>>>>>
>>>>>
>>>>
>>>>
>>
>>
>>
Responder