chyr
10 de Junio del 2004

Haber, dispongo de 2 tablas, en una guardo los datos de los proveedores, y en la otra los datos de facturas y demás....como hacer que; cuando haga click en el nombre de un proveedor que esta en el combobox, me muestre en los textbox los datos de la otra tabla, las facturas..

Le estaría muy agradecida a kien me ayudara

silvia
10 de Junio del 2004

podrías explicarte... un poco mejor... aquí tienes mi mail, para ayudarte si lo entiendo! [email protected]

kaliman
10 de Junio del 2004

oks.

Bueno tienes que manipular los eventos del combo (Click)..

en el combo debe tener los proveedores, en la propiedad "ItemData" debe tener la Clave del Proveedor...

ejemplo...
private sub LlenaProveedor()
dim LoRst as RecordSset
' Obtener el RecordSet de los Proveedores
'set LoRst =

cboProveedor.Clear
while not LoRst.EOF
cboProveedor.add Lorst("nombre")
cboProveedor.ItemData(cboProveedor.NewIndex) =lorst("Clave")
lorst.moveNext
wend
end sub

Private Sub cboProveedor_Click()
If cboProveedor.ListIndex<>-1 Then
MuestraInformacion(cboProveedor.ItemData(cboProveedor.ListIndex))
End If
End Sub

Private sub MuestraInformacion (pProveedor as long)
dim LoRst as RecordSet
' Obtener el RecordSet de los otros datos del Proveedor
'set LoRst =
if not LoRst.EOF then
'Asignar los valores a los textbox..
' txtNoFactura.text = lorst("NoFactura")
' txtRFC.text = lorst("RFC")

end if

end sub


salu2