Datagridview For anidado con checkbox
Publicado por chama (1 intervención) el 04/08/2017 00:05:04
Amigos me gustaría tener su ayudo que no sé lo que pasa en ésta instrucción soy un poco nuevo en el lenguaje vb.net
Miren tengo un data DataGridiVew con las columnas ENFERMEDAD ,ABUELOP . ABUELOM , PADRE ,MADRE , TIOS ,HERMANOS ,PRIMOS
y agrego a la primera columna las enfermedades que son
El problema surge que lo quiero Insertar en la base de datos cada vez que termine de contar las Columnas que se seleccionaron en esa fila, pero me imprime valores que no deseo osea cuando acaba el reccorrido en las columnas no incremente el valor de los renglones, necesito ayuda de ustedes expertos en el tema gracias
Miren tengo un data DataGridiVew con las columnas ENFERMEDAD ,ABUELOP . ABUELOM , PADRE ,MADRE , TIOS ,HERMANOS ,PRIMOS
y agrego a la primera columna las enfermedades que son
1
2
3
4
5
6
7
8
9
10
11
12
objeto.Rows.Add("Hipertensión Arterial")
objeto.Rows.Add("Obesidad")
objeto.Rows.Add("Cardiopatía")
objeto.Rows.Add("Epilepsia")
objeto.Rows.Add("Artritis Reumatoide")
objeto.Rows.Add("Cancer")
objeto.Rows.Add("Malformaciones Congénitas")
objeto.Rows.Add("Enfermedades Mentales")
objeto.Rows.Add("Dislipidemia")
objeto.Rows.Add("Diabetes")
objeto.Rows.Add("Drogas/Alcohol")
objeto.Rows.Add("Asma Bronquial")
El problema surge que lo quiero Insertar en la base de datos cada vez que termine de contar las Columnas que se seleccionaron en esa fila, pero me imprime valores que no deseo osea cuando acaba el reccorrido en las columnas no incremente el valor de los renglones, necesito ayuda de ustedes expertos en el tema gracias
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
For Renglones As Integer = 0 To dtg_antecedentesH.RowCount - 1
For Columnas As Integer = 0 To dtg_antecedentesH.ColumnCount - 1
If (Columnas > 0) Then
'MsgBox(Renglones)
If (Convert.ToBoolean(dtg_antecedentesH.Item(Columnas, Renglones).Value)) Then
arregloFamiliarEnf(Columnas) = "si"
MsgBox(arregloFamiliarEnf(Columnas))
arregloEnfermedad = dtg_antecedentesH.Item(0, Renglones).Value
MsgBox(arregloEnfermedad)
Continue For
End If
End If
Next Columnas
Insertar_ExpedienteEnfermedades(arregloFamiliarEnf, arregloEnfermedad)
Next Renglones
Valora esta pregunta
0
