Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combobox Problem
Message
From
04/08/2003 16:37:45
Luis Navas
Independent Consultant
Auckland, New Zealand
 
 
To
04/08/2003 16:02:29
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00812772
Message ID:
00816633
Views:
16
>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
Gracias, no tendrías necesidad de crear los cursores, ya que el Select te los crearía solos.
Luis
I never forget a face, but in your case I will make an exception :-)
Previous
Reply
Map
View

Click here to load this message in the networking platform