20/09/2005, 17:06
|
 | Colaborador | | Fecha de Ingreso: diciembre-2004
Mensajes: 1.802
Antigüedad: 19 años, 5 meses Puntos: 38 | |
Código:
Private Sub LlenarModelo()
Dim dr As SqlClient.SqlDataReader
Dim objTipo As New DLLConsulta.Consulta
dr = objTipo.LlenarModelo(cbxTipo.SelectedItem.Text, cbxMarca.SelectedItem.Text, "%")
'Vaciar elementos del combo Modelo.
cbxModelo.Items.Clear
'Solo si hay elementos se vuelve a cargar.
If dr.HasRows Then
cbxModelo.DataSource = dr
cbxModelo.DataTextField = "Modelo"
cbxModelo.DataBind()
End If
End Sub
|