CheckList con ValueMember
Publicado por Victor (1 intervención) el 30/03/2010 05:50:16
Hola gente! hace poco arranqué con VB .net y en varias cosas ando perdido... a ver si me pueden ayudar con esto.
Estoy haciendo para la facu un sistema con un perfil para usuarios, tengo un checkList donde tengo los permisos y segun los id de usuario y formulario que me trae en una busqueda quiero que me tilde o no los permisos que tiene... lo que no se es como hacer que por medio del ValueMember que es donde guardo el id de cada permiso me tilde o no...
opermisos = New Controladora.Permisos
' Lleno la lista con los permisos
chkPermisos.DataSource = opermisos.Obtener_Permisos
chkPermisos.DisplayMember = "permiso"
chkPermisos.ValueMember = "id_permiso"
chkPermisos.Refresh()
oPerfiles = New Controladora.Perfiles
Dim dtPerfiles As DataTable
dtPerfiles = oPerfiles.OBTENER_perfil(Val(cboGrupo.SelectedValue), Val(lstForms.SelectedValue))
Dim cont As Integer
chkPermisos.ClearSelected()
Dim Valor As String
For Each MiDataRow As DataRow In dtPerfiles.Rows
cont = 0
For Each i As DataRowView In chkPermisos.Items
Valor = CType(chkPermisos.Items(cont), System.Data.DataRowView).Item("id_permiso").ToString
If MiDataRow("id_permiso").ToString = Valor Then
chkPermisos.SetSelected(cont, True)
End If
cont = cont + 1
Next i
Next
La primera parte la carga bien... despues hago la busqueda del perfil y ahi estuve haciendo pruebas con distintas cosas que busque en internet pero sin ningun resultado. Les agradeceria mucho la ayuda...
Saludos
Estoy haciendo para la facu un sistema con un perfil para usuarios, tengo un checkList donde tengo los permisos y segun los id de usuario y formulario que me trae en una busqueda quiero que me tilde o no los permisos que tiene... lo que no se es como hacer que por medio del ValueMember que es donde guardo el id de cada permiso me tilde o no...
opermisos = New Controladora.Permisos
' Lleno la lista con los permisos
chkPermisos.DataSource = opermisos.Obtener_Permisos
chkPermisos.DisplayMember = "permiso"
chkPermisos.ValueMember = "id_permiso"
chkPermisos.Refresh()
oPerfiles = New Controladora.Perfiles
Dim dtPerfiles As DataTable
dtPerfiles = oPerfiles.OBTENER_perfil(Val(cboGrupo.SelectedValue), Val(lstForms.SelectedValue))
Dim cont As Integer
chkPermisos.ClearSelected()
Dim Valor As String
For Each MiDataRow As DataRow In dtPerfiles.Rows
cont = 0
For Each i As DataRowView In chkPermisos.Items
Valor = CType(chkPermisos.Items(cont), System.Data.DataRowView).Item("id_permiso").ToString
If MiDataRow("id_permiso").ToString = Valor Then
chkPermisos.SetSelected(cont, True)
End If
cont = cont + 1
Next i
Next
La primera parte la carga bien... despues hago la busqueda del perfil y ahi estuve haciendo pruebas con distintas cosas que busque en internet pero sin ningun resultado. Les agradeceria mucho la ayuda...
Saludos
Valora esta pregunta
0