Unnamed

Private Sub cargaGrillaBuscar()
        'Me.objCursoEN.ListEvaluaciones = gestorCurso.dameEvaluacionNumero(Me.strCodCurso, Me.intCodEvaluacion) ' , convert.ToInt32(me.CbxNumero.Text))

        'controlar error q presione buscar sin seleccionra combo

        'Me.tAlumnosParaEvaluar = cargaCabeceraGrilla(objCursoEN.ListEvaluaciones)
        Me.tAlumnosParaEvaluar = cargaCabeceraGrilla(CType(Me.CbxEvaluacion.SelectedItem, EvaluacionEN).Nombre + " " + CType(Me.CbxNumero.SelectedItem, Integer).ToString)
        tAlumnosParaEvaluar.Rows.Clear()
        cargaContenidoGrilla(tAlumnosParaEvaluar)
        Me.DtgAlumnos.DataSource = Nothing
        Me.DtgAlumnos.DataSource = tAlumnosParaEvaluar
    End Sub

    Private Function cargaCabeceraGrilla(ByVal strNombre As String) As DataTable
        'Private Function cargaCabeceraGrilla(ByVal listEval As List(Of EvaluacionXCursoEN)) As DataTable
        Dim tAlumnos As New DataTable("Alumnos")
        Dim cCodigo As New DataColumn("Codigo")
        Dim cNombres As New DataColumn("Nombres")
        '        Dim nombre As String
        tAlumnos.Columns.Add(cCodigo)
        tAlumnos.Columns.Add(cNombres)
        tAlumnos.Columns.Add(strNombre)
        'PARA MOSTRAR DINAMICAMENTE MAS DE UNA COLUMNA
        'Dim i As Integer
        'Dim ListEvaluaciones As New List(Of DataColumn)

        'For i = 0 To listEval.Count - 1
        '    nombre = listEval(i).Nombre + listEval(i).Numero.ToString
        '    'If listEval(i).Numero = Convert.ToInt32(Me.CbxNumero.Text) And listEval(i).Nombre = Me.CbxEvaluacion.Text Then
        '    ListEvaluaciones.Add(New DataColumn(nombre))
        '    tAlumnos.Columns.Add(ListEvaluaciones(i))
        '    'End If
        'Next
        Return tAlumnos
    End Function

    Private Sub cargaContenidoGrilla(ByVal tAlumnosEvaluados As DataTable)

        Me.gestorAlumno.ListaAlumno = Me.gestorAlumno.buscarAlumnos(Me.intCodGrado, Me.intCodSeccion)

        Dim newRow As DataRow
        Dim i As New Integer

        If Not IsNothing(Me.gestorAlumno.ListaAlumno) Then
            If (Me.gestorAlumno.ListaAlumno.Count > 0) Then
                newRow = tAlumnosEvaluados.NewRow

                For Each alumno As AlumnoEN In Me.gestorAlumno.ListaAlumno
                    newRow(0) = alumno.IdAlumno
                    newRow(1) = alumno.Nombre + alumno.Apellidos

                    tAlumnosEvaluados.Rows.Add(newRow)
                    tAlumnosEvaluados.Columns(0).ReadOnly = True
                    tAlumnosEvaluados.Columns(1).ReadOnly = True
                    newRow = tAlumnosEvaluados.NewRow()
                Next
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBuscar.Click
        If (CbxGrado.Text = "" Or CbxSeccion.Text = "" Or CbxBimestre.Text = "" Or CbxEvaluacion.Text = "" Or CbxCurso.Text = "") Then
            Me.mostrarError()
        Else
            Me.LblMuestraBimestre.Text = Me.CbxBimestre.Text
            Me.intCodGrado = dameCodGrado(Me.CbxGrado.Text)
            Me.intCodSeccion = dameCodSeccion(Me.CbxSeccion.Text)
            Me.intCodBimestre = dameCodBimestre(Me.CbxBimestre.Text)

            Me.CbxBimestre.Enabled = False
            Me.CbxCurso.Enabled = False
            Me.CbxGrado.Enabled = False
            Me.CbxSeccion.Enabled = False

            cargaGrillaBuscar()
        End If
    End Sub