Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combobox Problem
Message
From
04/08/2003 16:02:29
 
 
To
23/07/2003 10:28:10
Luis Navas
Independent Consultant
Auckland, New Zealand
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00812772
Message ID:
00816622
Views:
20
Hi, i'm not speak english.

Ok, eres de guatemala, supongo que hablas español.

Casulamente estoy creando una aplicacion que utiliza no 2 sino 3 combos, en donde el segundo combo depende del primero y el tercero depende del ptimero y segundo.

Ok. Te explico brevemente lo que hice.

Creo tres CURSORES y sus respectivos nombres los guardo en propiedades del FORM.
Por supuesto cada uno con un nombre diferente...

EN EL METODO para llenar el "primer combo"

Thisform.Cursor_01 = SYS(2015)

Thisform.Combo1.RowSorce = (Thisform.Cursor_01)+
Thisform.Combo1.RowSorceType = 6


CREATE CURSOR (Thisform.Cursor_01) ( XXX C(10), XXX2 C(20))

Cursor_Consulta_01 = SYS(2015)
SELECT * FROM TABLAS INTO CURSOR (Cursor_Consulta_01)

""" por supuesto este select con la consulta que necesites"""

SELECT (Cursor_Consulta_01)
GO TOP
SCAN
INSERT INTO (Thisform.Cursor_01) FROM MEMVAR
ENDSCAN

USE IN (Cursor_Consulta_01)

Y asi vas a llenar los otros dos... y alli si puedes escribir en el select COLUMNA = thisform.combo1.value

Ahora bien en el InteractiveChange del primero combo llamas el metodo que llena el segundo cursor y listo.

Si por casulidad no entiendes algo me puedes escribir a ajmr2001@hotmail.com

Esto lo estoy haciendo ahoritra no esta preparado con anterioridad pero si sigues mas o menos los pasos veras que funciona correctamente.

P.D. no olvides Refresh despues de la consulta...

Espero te sirva

ARMANDO MARQUEZ
ajmr2001@hotmail.com
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform