Ayuda Combo Box
Ayuda Combo Box
Fivewiner
favor alguien me echa una mano... tengo un dialog donde cargo en un combobox datos de direcciones, de un cliente.. lo que necesito es que cuando se cambie de cliente en el mismo dialog.. se refresquen los datos del combobox con los datos del nuevo cliente..
DEFINE Dialog ::oDlg Resource .....
Redefine Get ::oGet[02] VAR ::vRut Id 102 Of ::oDlg picture "@R 99.999.999-!" valid { datos( ::vRut} )
Redefine ComboBox ::oCmb VAR ::vCmb Id 131 Of ::oDlg Items ::aCmb[01] Update
Activate Dialog ::oDlg....
method Datos ()
aqui lleno los nuevos datos del combo....
aadd( ::aCmb, { direccion1, direccion2} )
::oCmb:Update()
::oCmb:Refresh()
return NIL
alguna sugerencia se los agradezco.. llevo un ratotote con esta cosaaa
salu2
Tomas
favor alguien me echa una mano... tengo un dialog donde cargo en un combobox datos de direcciones, de un cliente.. lo que necesito es que cuando se cambie de cliente en el mismo dialog.. se refresquen los datos del combobox con los datos del nuevo cliente..
DEFINE Dialog ::oDlg Resource .....
Redefine Get ::oGet[02] VAR ::vRut Id 102 Of ::oDlg picture "@R 99.999.999-!" valid { datos( ::vRut} )
Redefine ComboBox ::oCmb VAR ::vCmb Id 131 Of ::oDlg Items ::aCmb[01] Update
Activate Dialog ::oDlg....
method Datos ()
aqui lleno los nuevos datos del combo....
aadd( ::aCmb, { direccion1, direccion2} )
::oCmb:Update()
::oCmb:Refresh()
return NIL
alguna sugerencia se los agradezco.. llevo un ratotote con esta cosaaa
salu2
Tomas
-
- Posts: 113
- Joined: Wed Mar 11, 2009 7:32 pm
- Location: Obregon, Sonora, Mexico
Re: Ayuda Combo Box
hola wen dia
oCombomaestro:Setitems(adatos)
oCombomaestro:refresh()
ya que tienes los datos nuevos
ay que agregarlos con ocombomaestro:setitems(adatos)
y luego refrescar
saludos
oCombomaestro:Setitems(adatos)
oCombomaestro:refresh()
ya que tienes los datos nuevos
ay que agregarlos con ocombomaestro:setitems(adatos)
y luego refrescar
saludos
Benjamin Casarrubias Moreno
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Re: Ayuda Combo Box
Hola gracias
lo agregue como indicas
method Datos ()
aqui lleno los nuevos datos del combo....
aadd( ::aCmb, { direccion1, direccion2} )
::oCmb:Setitems(::aCmb)
::oCmb:Refresh()
Return NIL
pero me marca el siguiente error
Application
===========
Path and name: F:\Respaldos\Dropbox\app\FastTackV7.0\Bin\Fast Track 7.0.Exe (32 bits)
Size: 5,342,720 bytes
Time from start: 0 hours 0 mins 14 secs
Error occurred at: 10/07/2013, 17:24:30
Error description: Error BASE/2022 Argument error: ALLTRIM
Args:
[ 1] = A { ... }
Stack Calls
===========
Called from: => ALLTRIM(0)
Called from: COMBOBOX.PRG => (b)TCOMBOBOX:DEFAULT(0)
Called from: => ASCAN(0)
Called from: COMBOBOX.PRG => TCOMBOBOX:DEFAULT(0)
Called from: COMBOBOX.PRG => (b)TCOMBOBOX:TCOMBOBOX(0)
Called from: COMBOBOX.PRG => TCOMBOBOX:SETITEMS(0)
Called from: FT600b.prg => FT600:DATOS(1362) //llamado a linea ::oCmb:Setitems(::aCmb)
lo agregue como indicas
method Datos ()
aqui lleno los nuevos datos del combo....
aadd( ::aCmb, { direccion1, direccion2} )
::oCmb:Setitems(::aCmb)
::oCmb:Refresh()
Return NIL
pero me marca el siguiente error
Application
===========
Path and name: F:\Respaldos\Dropbox\app\FastTackV7.0\Bin\Fast Track 7.0.Exe (32 bits)
Size: 5,342,720 bytes
Time from start: 0 hours 0 mins 14 secs
Error occurred at: 10/07/2013, 17:24:30
Error description: Error BASE/2022 Argument error: ALLTRIM
Args:
[ 1] = A { ... }
Stack Calls
===========
Called from: => ALLTRIM(0)
Called from: COMBOBOX.PRG => (b)TCOMBOBOX:DEFAULT(0)
Called from: => ASCAN(0)
Called from: COMBOBOX.PRG => TCOMBOBOX:DEFAULT(0)
Called from: COMBOBOX.PRG => (b)TCOMBOBOX:TCOMBOBOX(0)
Called from: COMBOBOX.PRG => TCOMBOBOX:SETITEMS(0)
Called from: FT600b.prg => FT600:DATOS(1362) //llamado a linea ::oCmb:Setitems(::aCmb)
-
- Posts: 113
- Joined: Wed Mar 11, 2009 7:32 pm
- Location: Obregon, Sonora, Mexico
Re: Ayuda Combo Box
hola,
este es un ejemplo funcional
este es un ejemplo funcional
Code: Select all
// This sample shows how to create a Combo Test.
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oCbx, cCbx:="aaa"
local cItem1 := {"aaa","bbb","ccc"}
local cItem2 := {"1","2","3"}
local citem3
citem3:=citem1
DEFINE DIALOg oDlg title "TestCombo"
@ 1, 1 combobox oCbx var ccbx items citem3 size 60, 80 of odlg update
@ 2, 1 BUTTON "cambiar aa" SIZE 40, 10 OF oDlg action ( citem3:=citem1, ocbx:setitems(citem3) , ocbx:refresh() )
@ 3, 1 BUTTON "cambiar 1" SIZE 40, 10 OF oDlg action ( citem3:=citem2, ocbx:setitems(citem3) , ocbx:refresh() )
ACTIVATE DIALOG oDlg CENTERED
return nil
//----------------------------------------------------------------------------//
Benjamin Casarrubias Moreno
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
- jrestojeda
- Posts: 543
- Joined: Wed Jul 04, 2007 3:51 pm
- Location: Buenos Aires - Argentina
Re: Ayuda Combo Box
Hola...
Revisa también el método modify() de la clase combo.
Saludos,
Revisa también el método modify() de la clase combo.
Saludos,
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda
-
- Posts: 113
- Joined: Wed Mar 11, 2009 7:32 pm
- Location: Obregon, Sonora, Mexico
Re: Ayuda Combo Box
hola,,
elproblema es que el combo lo toma como texto y no numerico ,,,, convierte los numeros a texto
y con eso ya no marca error en alltrim la clase combobox
saludos
elproblema es que el combo lo toma como texto y no numerico ,,,, convierte los numeros a texto
y con eso ya no marca error en alltrim la clase combobox
saludos
Benjamin Casarrubias Moreno
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Re: Ayuda Combo Box
funciona bien pero no logro hacer que el nuevo combobox comience desde la posición 1 siempre se inicia en la posición 0, generandome errorbenjiben143 wrote:hola,
este es un ejemplo funcional
Code: Select all
// This sample shows how to create a Combo Test. #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oDlg, oCbx, cCbx:="aaa" local cItem1 := {"aaa","bbb","ccc"} local cItem2 := {"1","2","3"} local citem3 citem3:=citem1 DEFINE DIALOg oDlg title "TestCombo" @ 1, 1 combobox oCbx var ccbx items citem3 size 60, 80 of odlg update @ 2, 1 BUTTON "cambiar aa" SIZE 40, 10 OF oDlg action ( citem3:=citem1, ocbx:setitems(citem3) , ocbx:refresh() ) @ 3, 1 BUTTON "cambiar 1" SIZE 40, 10 OF oDlg action ( citem3:=citem2, ocbx:setitems(citem3) , ocbx:refresh() ) ACTIVATE DIALOG oDlg CENTERED return nil //----------------------------------------------------------------------------//
asi lo hago pero no funciona????? oCbx:nAt := 1
alguna sugerencia
gracias...
-
- Posts: 113
- Joined: Wed Mar 11, 2009 7:32 pm
- Location: Obregon, Sonora, Mexico
Re: Ayuda Combo Box
hola buen dia
dale el valor a la variable del combobox
y refresh al objecto de combobox
sas
dale el valor a la variable del combobox
y refresh al objecto de combobox
sas
Benjamin Casarrubias Moreno
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Re: Ayuda Combo Box
Macato,
Cual es la posición cero ? La primera posición del combobox sería la 1.
Te refieres a que se va a la 2 ?
Tendrias que asignar a ::vCmb el valor del primer elemento del array
Cual es la posición cero ? La primera posición del combobox sería la 1.
Te refieres a que se va a la 2 ?
Tendrias que asignar a ::vCmb el valor del primer elemento del array
Re: Ayuda Combo Box
Gracias
Efectivamente tendría que ser la posición 1, incluso fuerzo el objeto ::oCmb:nAt := 01 a esa posición, pero aun así en el combobox no se muestran la información del primer dato contenido en el... , la primera información se muestra vacía y a continuación la información del combobox que se genero a partir del array...
DEFINE Dialog ::oDlg Resource .....
Redefine Get ::oGet[02] VAR ::vRut Id 102 Of ::oDlg picture "@R 99.999.999-!" valid { datos( ::vRut} )
Redefine ComboBox ::oCmb VAR ::vCmb Id 131 Of ::oDlg Items ::aCmb[01] Update
Activate Dialog ::oDlg....
method Datos ()
aqui lleno los nuevos datos del combo....
aadd( ::aCmb, { codigo, direccion1, comuna, ciudad } )
::oCmb:setitems(::aCmb[01])
::oCmb:Refresh()
::oCmb:nAt := 01
::oDlg:Update()
return NIL
Antonio,Antonio Linares wrote:Macato,
Cual es la posición cero ? La primera posición del combobox sería la 1.
Te refieres a que se va a la 2 ?
Tendrias que asignar a ::vCmb el valor del primer elemento del array
Efectivamente tendría que ser la posición 1, incluso fuerzo el objeto ::oCmb:nAt := 01 a esa posición, pero aun así en el combobox no se muestran la información del primer dato contenido en el... , la primera información se muestra vacía y a continuación la información del combobox que se genero a partir del array...
DEFINE Dialog ::oDlg Resource .....
Redefine Get ::oGet[02] VAR ::vRut Id 102 Of ::oDlg picture "@R 99.999.999-!" valid { datos( ::vRut} )
Redefine ComboBox ::oCmb VAR ::vCmb Id 131 Of ::oDlg Items ::aCmb[01] Update
Activate Dialog ::oDlg....
method Datos ()
aqui lleno los nuevos datos del combo....
aadd( ::aCmb, { codigo, direccion1, comuna, ciudad } )
::oCmb:setitems(::aCmb[01])
::oCmb:Refresh()
::oCmb:nAt := 01
::oDlg:Update()
return NIL
-
- Posts: 113
- Joined: Wed Mar 11, 2009 7:32 pm
- Location: Obregon, Sonora, Mexico
Re: Ayuda Combo Box
este es el ejemplo que dependiendo el valor se va a la posicion del combo, si queremos que sea la primera posicion seria
ccbx:=citem2[1] // esto nos indica que ccbx va tener el primer valor
ocbx:refresh() // con esto refrescamos
ya seria validar isi hay datos en la posiscion 1
saludos
abajo el ejemplo
saludos
ccbx:=citem2[1] // esto nos indica que ccbx va tener el primer valor
ocbx:refresh() // con esto refrescamos
ya seria validar isi hay datos en la posiscion 1
saludos
abajo el ejemplo
Code: Select all
#include "FiveWin.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oCbx, cCbx:="aaa"
local cItem1 := {"aaa","bbb","ccc"}
local cItem2 := {"1","2","3"}
local citem3
citem3:=citem1
DEFINE DIALOg oDlg title "TestCombo"
@ 1, 1 combobox oCbx var ccbx items citem3 size 60, 80 of odlg update
@ 2, 1 BUTTON "cambiar aa" SIZE 40, 10 OF oDlg action ( citem3:=citem1, ocbx:setitems(citem3) , ccbx:="bbb",ocbx:refresh() )
@ 3, 1 BUTTON "cambiar 1" SIZE 40, 10 OF oDlg action ( citem3:=citem2, ocbx:setitems(citem3) , ccbx:="3",ocbx:refresh() )
@ 2, 10 BUTTON "primero" SIZE 40, 10 OF oDlg action ( citem3:=citem2, ocbx:setitems(citem3) , ccbx:=citem2[1],ocbx:refresh() )
ACTIVATE DIALOG oDlg CENTERED
return nil
//---
Benjamin Casarrubias Moreno
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Cd. Obregon, Sonora, Mexico
chino72vale@hotmail.com
Fivewin 16.05, Harbour 3.2, xharbour 1.2.1, Fivelinux, visual estudio 2013
Re: Ayuda Combo Box
Ahora funciona perfecto!!! muchas gracias
benjiben143 wrote:este es el ejemplo que dependiendo el valor se va a la posicion del combo, si queremos que sea la primera posicion seria
ccbx:=citem2[1] // esto nos indica que ccbx va tener el primer valor
ocbx:refresh() // con esto refrescamos
ya seria validar isi hay datos en la posiscion 1
saludos
abajo el ejemplo
saludosCode: Select all
#include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oDlg, oCbx, cCbx:="aaa" local cItem1 := {"aaa","bbb","ccc"} local cItem2 := {"1","2","3"} local citem3 citem3:=citem1 DEFINE DIALOg oDlg title "TestCombo" @ 1, 1 combobox oCbx var ccbx items citem3 size 60, 80 of odlg update @ 2, 1 BUTTON "cambiar aa" SIZE 40, 10 OF oDlg action ( citem3:=citem1, ocbx:setitems(citem3) , ccbx:="bbb",ocbx:refresh() ) @ 3, 1 BUTTON "cambiar 1" SIZE 40, 10 OF oDlg action ( citem3:=citem2, ocbx:setitems(citem3) , ccbx:="3",ocbx:refresh() ) @ 2, 10 BUTTON "primero" SIZE 40, 10 OF oDlg action ( citem3:=citem2, ocbx:setitems(citem3) , ccbx:=citem2[1],ocbx:refresh() ) ACTIVATE DIALOG oDlg CENTERED return nil //---