les muestro lo que llevo.
Código vb:
Ver original
Dim dt As New DataTable() Dim dr As DataRow Dim i As Integer strSelectPregunta = "Select * From BancoPregunta Order by Dimension " cmdSelectPregunta = New SqlCommand(strSelectPregunta, conDesempeno) dt.Columns.Add(New DataColumn("idPregunta", GetType(Integer))) dt.Columns.Add(New DataColumn("Pregunta", GetType(String))) dt.Columns.Add(New DataColumn("Dimension", GetType(String))) Dim strSelectGerencias As String Dim cmdSelectGerencias As SqlCommand Dim dtrSelectGrenecias As SqlDataReader Dim j As Integer = 0 strSelectGerencias = "Select * From XXX Order by XXX " cmdSelectGerencias = New SqlCommand(strSelectGerencias, conDesempeno) conDesempeno.Open() dtrSelectGrenecias = cmdSelectGerencias.ExecuteReader While dtrSelectGrenecias.Read dt.Columns.Add(New DataColumn(dtrSelectGrenecias("XXX"), GetType(Boolean))) j += 1 End While conDesempeno.Close() Dim k As Integer = 0 conDesempeno.Open() dtrSelectPregunta = cmdSelectPregunta.ExecuteReader While dtrSelectPregunta.Read dr = dt.NewRow() i = 0 dr(i) = dtrSelectPregunta("idPregunta") '0 i = i + 1 '1 dr(i) = dtrSelectPregunta("Pregunta") '1 i = i + 1 '2 dr(i) = dtrSelectPregunta("Dimension") '2 While k < j i += 1 dr(i) = dtrSelectPregunta("Elejido") k += 1 End While dt.Rows.Add(dr) End While Dim dv As New DataView(dt) conDesempeno.Close() dgrBcoHist.DataSource = dv dgrBcoHist.DataBind() conDesempeno.Close()
les explico un poco
dt.Columns.Add(New DataColumn("idPregunta", GetType(Integer)))
dt.Columns.Add(New DataColumn("Pregunta", GetType(String)))
dt.Columns.Add(New DataColumn("Dimension", GetType(String)))
declaro los headers del datagrid
While dtrSelectGrenecias.Read
dt.Columns.Add(New DataColumn(dtrSelectGrenecias("XXX"), GetType(Boolean)))
j += 1
End While
listo hacia la derecha las opciones XXX, es un valor que recojo puesto que es dinamico. y tipo boolean para que sean checkbox
While k < j
i += 1
dr(i) = dtrSelectPregunta("Elejido")
k += 1
End While
asigno las checkbox teoricas. 'Elejido' en la base de datos es tipo Bit que es binario
mi problema es que esto no muestra ninguna checkbox, y tenia la idea de que al declarar boolean y el tipo en la base de datos esta mostraria automaticamente la checkbox.
si algn tiene un ejemplo que funcione sobre como agregar chechkbox dinamicamente en VB, le agradecere x siempre, xq no doy con una solucion.