Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic.NET - como llenar un combobox

  Imprimir  
Vista:

como llenar un combobox

Publicado por cinthia (4 intervenciones) el 17/07/2009 06:11:01
Hola a todos!, yo recien estoy empezando con la programacion en vb.net y cuando quice llenar unos texbox lo pude hacer sin mas problemas pero al quere llenar un combobox ahi surgio el gran problema, agradeceria puedan darme una mano, desde ya gracias!.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Llenar Textbox
Dim dt As New Essa2.DataSet1.PrestadorDataTable
Dim ta As New DataSet1TableAdapters.PrestadorTableAdapter
ta.BuscarPrestador(dt, txtId_prestador.Text)
txtNombreApellido.Text = dt.Item(0).Razon_social.ToString
txtEspecialidad.Text = dt.Item(0).Nombre.ToString


'Llenar Combobox
Dim Tp As Integer
Dim dt1 As New Essa2.DataSet1.PrestadorDataTable
Dim ta1 As New DataSet1TableAdapters.PrestadorTableAdapter
Tp = dt1.Item(0).Id_tipo_prestador.ToString
ta1.BuscarTipoPrestaciones(dt1, Tp)
ComboBox1.DisplayMember = "Nombre"
ComboBox1.ValueMember = "Id_tipo_prestacion"
ComboBox1.DataSource = dt1

End Sub
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

RE:como llenar un combobox

Publicado por Damian (824 intervenciones) el 20/07/2009 19:18:36
mmmm....no se que es lo que estas haciendo ahi, por lo que veo estas usando controles enlazados, yo lo cargo desde codigo ya que lo puedo controlar mejor y si te sirve aca te dejo el codigo para llenar un combo.

Dim MiConexion As New SqlConnection(Conexion)
Dim Rs As SqlDataReader
Dim Com As New SqlCommand
Dim SQL As String

SQL = "select CodCat,Descripcion from Categoria where Baja=0 order by 2"
cboCat.Items.Clear()
Com = New SqlCommand(SQL, MiConexion)
Rs = Com.ExecuteReader()

While Rs.Read()
cboCat.Items.Add(Rs("Descripcion"))
Microsoft.VisualBasic.Compatibility.VB6.SetItemData(cboCat, cboCat.Items.Count - 1, Rs("CodCat"))
End While
cboCat.Items.Add("TODAS")
Rs.Close()

Como vez utilizo un while, en este caso cargo las distintas categorias que tiene una empresa con sus distintos articulos. Espero sirva
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