
13/11/2005, 13:23
|
| | Fecha de Ingreso: abril-2005
Mensajes: 163
Antigüedad: 19 años, 11 meses Puntos: 0 | |
Desesperación con checkedlistbox Hola, estoy perdiendo la paciencia con un checkedlistbox.
Lo cargo de la siguiente manera:
checkedListBox1.DataSource = dsdatos.Tables("Terapias")
CheckedListBox1.DisplayMember = dsdatos.Tables("Terapias").Columns("nombre").ToStr ing
CheckedListBox1.ValueMember = dsdatos.Tables("Terapias").Columns("idterapia").To String
El caso es que yo hago una consulta en la base de datos que me da unos nombres y los kiero comparar cn el campo "nombre" que muestro en el checkedlistbox y si coinciden marcar el checkbox. Por más formas que lo he intentado no lo consigo.
'Desmarco todos los elementos del control
Dim b As Integer
For b = 0 To CheckedListBox1.Items.Count - 1
CheckedListBox1.SetItemCheckState(b, CheckState.Unchecked)
Next
BuscarDatos(sql, misdatos)
Dim x As Integer
Dim valor As String
While misdatos.Read
For x = 1 To CheckedListBox1.Items.Count - 1
If CheckedListBox1.Items(x) = misdatos.Item("nombre") Then
CheckedListBox1.SetItemChecked(x, CheckState.Checked)
End If
Next
He probado muchas cosas en el if y ninguna me funciona. Tal cuál está ahí me da el error "Información adicional: El operador no es válido para tipo 'DataRowView' y cadena "Laserterapia"
Si pongo If CheckedListBox1.Items(x) Like misdatos.Item("nombre") Then
m dice Información adicional: La conversión del tipo 'DataRowView' al tipo 'String' no es válida
A ver si alguien me puede ayudar pq por más q pruebo no doy con la solución, gracias y saludos. |