Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combobox Problem
Message
 
 
À
23/07/2003 10:28:10
Luis Navas
Independent Consultant
Auckland, Nouvelle Zélande
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00812772
Message ID:
00816622
Vues:
21
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform