FoxPro/Visual FoxPro - Mostrar datos combobox

 
Vista:

Mostrar datos combobox

Publicado por hector (9 intervenciones) el 27/08/2015 01:32:07
Buen Dia.

mi duda es la siguiente.. tengo dos combobox, en el primero tengo datos que obtendo de una tabla.. lo que pretendo es que al momento de seleccionar un valor del combo1, me arroje en el combo2 las subcuentas del combo1.. he intentado poner como si lo hiciera con un grid.. pero al momento de seleccionar un valor de combo1, me arroja una ventana de consulta con la informacion

en espera de su cooperacion, gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Angel Alberto

Mostrar datos combobox

Publicado por Angel Alberto (11 intervenciones) el 27/08/2015 03:18:53
Tienes que enviar los datos a un cursor: SELECT * FROM tabla INTO CURSOR curCursor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Mostrar datos combobox

Publicado por hector (9 intervenciones) el 27/08/2015 21:14:14
hola, gracias por tu ayuda..
si lo hago asi.. solo que me manda la informacion que necesito en una consulta..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Mostrar datos combobox

Publicado por Luiz Alexandre (58 intervenciones) el 27/08/2015 04:10:17
No primeiro ComboBox.
Método InteractiveChange
SELECT * FROM subcuentas WHERE THIS.Value INTO CURSOR curSubcuenta

No Segundo ComboBox
Propriedade - RowSource = "curSubcuenta"
Propriedade - RowSourceType = 2 - Alias

Aqui é uma dica somente.

Eu costumo preencher na mão os dados do ComboBox, sem usar o método acima. Eu prefiro assim.
Eu crio um método chamado PreencheCBOsubCuenta
Método - PreencheCBOsubCuenta
1
2
3
4
5
6
SELECT * FROM subcuentas WHERE THISFORM.cboCuenta.Value INTO CURSOR curSubcuenta
SCAN
    THISFORM.cboSubCuenta.AddItem(curSubcuenta.Descricao_subCuenta)
    THISFORM.cboSubCuenta.List[THISFORM.cboSubCuenta.NewIndex, 2] = ALLTRIM(TRANSFORM(curSubcuenta.Chave_subCuenta)
ENDSCAN
USE IN SELECT("curSubcuenta")    && Fecho o cursor
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Mostrar datos combobox

Publicado por hector (9 intervenciones) el 27/08/2015 21:14:44
Gracias , por responder.. lo tomare en cuenta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar