Ginis
16 de Julio del 2004

Estoy haciendo un proyecto en el que se muestran los nombres de mis proveedores en una ListBox. Y necesito que al darle click a uno de los nombres, me muestre los productos que me vende en otra ListBox. Cómo puedo hacer esto?

Ricardo
16 de Julio del 2004

Mi amigo Ginis
primero en el evento Click o boble Click
debes capturar el codigo de proveedor en una variable.
cp=codpro
selec desart from productos where codigo=cp into cursor temp
despues asignas en el list 2
rowsoucetype=campos
rowsource=temp
ESpero haberte ayudado un poquito

sgomez
16 de Julio del 2004

En el evento interactive change del combo de proveedores poné algo asi:

with thisform.comboproductos
.resettodefault("rowsource")
.resettodefault("columcount")
.rowsourcetype=3
.rowsource="select * from tablaproductos where tablaproductos.codprov= "+this.value+" into cursor auxiliar"
endwith

Aclaracion: En la linea que dice tablaproductos.codprov= "+this.value+" into cursor auxiliar"
Tenés que ajustarla al tipo de datos que estás utilizando en las tablas. Este ejemplo funciona si los campos son de tipo texto. En caso de ser numericos tenés que convertir el this.value con algo asi como alltrim(padl(this.value,254," ")).
En el objeto this podés utilizar value cuando la propiedad style está en 2, sino podés usar la propiedad text.

Agust?
16 de Julio del 2004

Seguro que cada uno lo hacemos a nuestra forma.
prueba esto:
Haz primero una relación de la primera a la segunda tabla.
Liga en el Control Source de cada Combo( o List) a el campo que deseas ver.
En el Interactive Change del primer Combo pon un ...combo2.refresh
Saludos