Columnas de un combo box

[Gustavo Federico Ponce]

Hola, tengo un combobox con tres columnas [Area, Descripcion,
Direccion] y lo que quisiera es que al seleccionar una, en alguna caja
de texto o messagebox me devuelva los valores de las otras columnas.-
Por ejemplo

---------------------------------------------------------------------------------
Area| Descripcion | Direccion
1 | Tucuman | San Miguel de Tu
2 | Famailla | Lavalle al 600
3 | Lules | Lules


Entonces al seleccionar el tercer item (sea cual sea la columna que
tenga el bound) necesitaria devolver los valores de las 2 columnas
restantes.-

Al que me lo solucione lo invito y le pago las empanadas en el
festival de la empanada en Famailla ;)

Muchas gracias

[Ricardo Pina]

hola

 

a ver si es esto lo que buscas

 

Le pones a tu combo un source de un cursor

 

CREATE CURSOR paracombo (campo1 C(2),campo2 C(10),campo3 c(10))

APPEND BLANK
REPLACE campo1 WITH "aa",campo2 WITH "campo A2",campo3 WITH "campo A3"
APPEND BLANK
REPLACE campo1 WITH "bb",campo2 WITH "campo B2",campo3 WITH "campo B3"
APPEND BLANK
REPLACE campo1 WITH "cc",campo2 WITH "campo C2",campo3 WITH "campo C3"

thisform.combo1.RowSource="paracombo"
thisform.combo1.RowSourceType= 2
thisform.combo1.ColumnCount=3
thisform.combo1.Style= 2

 

y luego en el Interactive del combo le agregas algo asi

 

Thisform.text1.Value=paracombo.campo2
Thisform.text2.Value=paracombo.campo3

 

mostrandote en ambos textos los campos del cursor que tiene como source el combo

 

si es correcto para mi las empanadas de carne cortada a cuchillo !!!

 

Saludos

--
Ricardo Pina
D&SIP
Desarrollo y Servicios Informáticos Profesionales
www.dsip.com.ar

[Hugo C.]

WITH THIFORM.comboBox1

? .List(.ListIndex, 1)
? .List(.ListIndex, 2)
? .List(.ListIndex, 3)

ENDWITH

Saludos.


On 2 sep, 16:41, Gustavo Federico Ponce <gustavitopo...@gmail.com>
wrote:

> Hola, tengo un combobox con tres columnas [Area, Descripcion,
> Direccion] y lo que quisiera es que al seleccionar una, en alguna caja
> de texto o messagebox me devuelva los valores de las otras columnas.-
> Por ejemplo
>

> ---------------------------------------------------------------------------­------

[Luis Maria Guayan]

Para mi media docena de carne y media docena de pollo al horno de barro, mira que estoy cerquita a 30 Km (estoy en Yerba Buena) ;-)

USE (HOME(2)+"Northwind\Employees")
loForm=NEWOBJECT("MiForm")
loForm.SHOW(1)
USE IN Employees

DEFINE CLASS MiForm AS FORM

  TOP = 0
  LEFT = 0
  HEIGHT = 224
  WIDTH = 447
  AUTOCENTER = .T.
  CAPTION = "Ejemplo"
  NAME = "Form1"

  ADD OBJECT combo1 AS COMBOBOX WITH ;
    COLUMNCOUNT = 3, COLUMNWIDTHS = "40,150,150", ;
    ROWSOURCETYPE = 6, ROWSOURCE = "employees.employeeid,address,city", ;
    FIRSTELEMENT = 1, HEIGHT = 25, LEFT = 48, ;
    STYLE = 2, TOP = 36, WIDTH = 96, NAME = "Combo1"

  ADD OBJECT text1 AS TEXTBOX WITH ;
    CONTROLSOURCE = "employees.employeeid", ;
    ENABLED = .F., HEIGHT = 25, LEFT = 108, ;
    TOP = 84, WIDTH = 96, NAME = "Text1"

  ADD OBJECT label1 AS LABEL WITH ;
    AUTOSIZE = .T., BACKSTYLE = 0, CAPTION = "Area", ;
    HEIGHT = 17, LEFT = 48, TOP = 84, WIDTH = 27, NAME = "Label1"

  ADD OBJECT text2 AS TEXTBOX WITH ;
    CONTROLSOURCE = "employees.address", ;
    ENABLED = .F., HEIGHT = 25, LEFT = 108, ;
    TOP = 120, WIDTH = 192, NAME = "Text2"

  ADD OBJECT label2 AS LABEL WITH ;
    AUTOSIZE = .T., BACKSTYLE = 0, CAPTION = "Direccion", ;
    HEIGHT = 17, LEFT = 48, TOP = 120, WIDTH = 54, NAME = "Label2"

  ADD OBJECT text3 AS TEXTBOX WITH ;
    CONTROLSOURCE = "employees.city", ENABLED = .F., ;
    HEIGHT = 25, LEFT = 108, TOP = 156, WIDTH = 192, NAME = "Text3"

  ADD OBJECT label3 AS LABEL WITH ;
    AUTOSIZE = .T., BACKSTYLE = 0, CAPTION = "Ciudad", ;
    HEIGHT = 17, LEFT = 48, TOP = 156, WIDTH = 42, NAME = "Label3"

  PROCEDURE INIT
    GO TOP IN Employees
    THISFORM.Combo1.LISTINDEX = 1
  ENDPROC

  PROCEDURE combo1.VALID
    THISFORM.REFRESH
  ENDPROC

ENDDEFINE

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Gustavo Federico Ponce]

Cerquita!!!!!, lo resolvi de esta manera

 

---------------------------------------------------------------------------------
Area|     Descripcion                    |         Direccion
1     |       Tucuman                      |        San Miguel de Tu
2     |   Famailla                           |  Lavalle al 600
3     | Lules                                  |  Lules

Si quiero saber el valor  de Direccion para area=2 seria algo así

combo.Listitem(combo.listindex,3)

Listitem(fila,columna) y como lo que me varia es la fila puedo dejar la columna fija

 

y lo prometido es deuda, avisa cuando llegues por Famailla y te llevo a comer empanadas. Ahh

Luis Maria Guayan, estas invitado, trae los limones de tafi viejo para acompañar ;)

[Luis Maria Guayan]

Trabajo en una citrícola, asi que por los limones no hay problema jajaja

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________