Visual Basic.NET - Checkbox en DataGridview como validar si esta activo

 
Vista:
Imágen de perfil de Percy

Checkbox en DataGridview como validar si esta activo

Publicado por Percy (11 intervenciones) el 25/05/2016 21:30:19
Saludos comunidad, espero me puedan ayudar con un inconveniente que tengo con los permisos de usuario, lo que deseo es validar por rol de usuario los checkbox marcados, los roles se gestionan en otro formulario puedo agregar los que desee y a cada rol le activo el checkbox y este rol se agregar al combobox del inicio de sesion, el problema es que no logro validar por rol que checkbox esta activo dependiendo de ello se muestran o ocultan las opciones del menu principal, adjunto unas imagenes espero me puedan ayudar


roles
roles


inicio de session
Sin-titulo


el codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub Permisos_Usuarios()
 
	For Each row As DataGridViewRow In DataGridView_ListaModulos.Rows
 
		Dim n As Int32 = CStr(row.Cells("Codigo_Unico").Value)
 
		If Convert.ToBoolean(row.Cells("Permiso").Value) = False Then
 
 
			With Form_Principal
 
				.ToolStripButton_Productos.Visible = False
				.ToolStripButton_Proveedores.Visible = False
				.ToolStripButton_Colaboradores.Visible = False
				.ToolStripButton_ControlStock.Visible = False
				.ToolStripButton_Movimientos.Visible = False
				.ToolStripButton_Entradas.Visible = False
				.ToolStripButton_Salidas.Visible = False
				.ToolStripButton_Reportes.Visible = False
				.ToolStripButton_Requermientos.Visible = False
				.ToolStripButton_Requerimientos_Colaborador.Visible = False
				.ToolStripButton_Usuarios.Visible = False
				.ToolStripButton_Configuraciones.Visible = False
 
			End With
 
		Else
 
			With Form_Principal
 
				.ToolStripButton_Productos.Visible = True
				.ToolStripButton_Proveedores.Visible = True
				.ToolStripButton_Colaboradores.Visible = True
				.ToolStripButton_ControlStock.Visible = True
				.ToolStripButton_Movimientos.Visible = True
				.ToolStripButton_Entradas.Visible = True
				.ToolStripButton_Salidas.Visible = True
				.ToolStripButton_Reportes.Visible = True
				.ToolStripButton_Requermientos.Visible = True
				.ToolStripButton_Requerimientos_Colaborador.Visible = True
				.ToolStripButton_Usuarios.Visible = True
				.ToolStripButton_Configuraciones.Visible = True
 
			End With
 
 
		End If
 
	Next
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