Actualizar Combobox
Publicado por Moti (12 intervenciones) el 17/07/2008 18:43:10
Cordial saludo amigos del foro
Dependiendo del valor almacenado en un campo de una tabla necesito que el combo aparezca seleccionado con esta opción para ello estoy utilizando el siguiente código
Dim rs, campo, permiso, a As String
a = "cod_perio = '" & Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 3) & "'"
Me.DataSet11.PERIODICIDAD.DefaultView.RowFilter = a
If Me.DataSet11.PERIODICIDAD.DefaultView.Count > 0 Then
campo = Me.DataSet11.PERIODICIDAD.DefaultView.Item(0).Row.Item("nom_peri")
Me.ComboBox4.Text = campo
Else
Me.ComboBox4.Text = ""
End If
el combo se esta actualizando, pero lo que esta sucediendo es que al tratar de desplegar el contenido del combo unicamente me esta presentando el valor que le asigne a la propiedad text
Gracias por la colaboración
Carlos
Dependiendo del valor almacenado en un campo de una tabla necesito que el combo aparezca seleccionado con esta opción para ello estoy utilizando el siguiente código
Dim rs, campo, permiso, a As String
a = "cod_perio = '" & Me.DataGrid1.Item(Me.DataGrid1.CurrentRowIndex, 3) & "'"
Me.DataSet11.PERIODICIDAD.DefaultView.RowFilter = a
If Me.DataSet11.PERIODICIDAD.DefaultView.Count > 0 Then
campo = Me.DataSet11.PERIODICIDAD.DefaultView.Item(0).Row.Item("nom_peri")
Me.ComboBox4.Text = campo
Else
Me.ComboBox4.Text = ""
End If
el combo se esta actualizando, pero lo que esta sucediendo es que al tratar de desplegar el contenido del combo unicamente me esta presentando el valor que le asigne a la propiedad text
Gracias por la colaboración
Carlos
Valora esta pregunta
0