Llenar Combo Box
Publicado por Agustina (1 intervención) el 15/12/2013 00:41:32
Hola, estoy empezando a programar en visual studio 2012... antes programaba en visual basic 6, no encuentro la forma de llenar un combobox como lo hacia en vb6
Pasa lo siguiente, yo necesito que el primer item sea Todos... ya que si no se seleciona ningun item, no necesito ningun flitro en la consulta que quiero hacer. En el caso contrario, si selecciona un item, necesito el codigo real de ese item, que seria el "rb1 codigo", para despues poder filtrarlo en la consulta.
En visual studio si pongo
con esto esta barbaro, pero no le puedo agregar el item todos
o tambien puede ser algo asi... pero quiero algo mas simple ya que el Index no es el mismo que el id de la base de datos
A mi se me ocurre, llenar el combo item por item... con un do while ... pero no se como!!!!!!! si o si tengo que relacionar el detalle con el codigo... para luego hacer el filtro...
Muchas Gracias
1
2
3
4
5
6
7
8
9
10
dim i as integer
i=0Rb1.RecordSource = "SELECT * FROM Rubros_detalle1 WHERE Rb1_rub_codigo=" & Wcod_rub & " order by Rb1_detalle"
Rb1.RefreshCmb_rb1.List(i) = "Todos los Sub_rubros...": Cmb_rb1.ItemData(i) = i
Do While Rb1.Recordset.EOF = False
i = i + 1: Cmb_rb1.List(i) = Rb1.Recordset!rb1_detalle
Cmb_rb1.ItemData(i) = Rb1.Recordset!rb1_codigo
Rb1.Recordset.MoveNext
Loop
En visual studio si pongo
1
2
3
4
5
6
Dim da As New OleDbDataAdapter(SELECT * FROM Rubros_detalle1 WHERE Rb1_rub_codigo=" & Wcod_rub & " order by Rb1_detalle", conexion)
Dim ds As New DataSetda.Fill(ds, "Rubros_detalle1")
Me.ComboBox1.DataSource = ds.Tables("provincias")
Me.ComboBox1.DisplayMember = "rb1_detalle"
Me.ComboBox1.ValueMember = "rb1_codigo"
con esto esta barbaro, pero no le puedo agregar el item todos
o tambien puede ser algo asi... pero quiero algo mas simple ya que el Index no es el mismo que el id de la base de datos
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Ole_conexion = New OleDbConnectionOle_conexion.ConnectionString = Vg_conexion
Ole_adapter = New OleDbDataAdapter("Select * from Rubros_detalle1 WHERE Rb1_rub_codigo=" & Wcod_rub & " order by Rb1_codigo", Ole_conexion)
Ole_dataset = New DataSetOle_conexion.Open()
Ole_adapter.Fill(Ole_dataset, "Rubros_detalle1")
Ole_conexion.Close()
Dim x As Integer = 0Cmb_subrubros.Items.Insert(x, "Todos los Sub-Rubros...")
If Ole_dataset.Tables("Rubros_detalle1").Rows.Count <> 0 Then
Do While x <> Ole_dataset.Tables("Rubros_detalle1").Rows.Count
x = x + 1
Cmb_subrubros.Items.Insert(x , Ole_dataset.Tables("Rubros_detalle1").Rows(x)("Rb1_detalle").ToString)
Loop
End If
Cmb_subrubros.SelectedIndex = 0
Muchas Gracias
Valora esta pregunta
0