Jscript con visual basic.net en tabla html
Utilizo javascript y visual basic con sql. Me gustaría pasar el resultado de esta función jscript a una clase Asistencia para guardarlo en mi tabla Asistencia (codpersona, codempresa, anno, codprogramacion, fechaclase y estado(1,2,3--Presente, Tardanza, Falta) de mi bd.
¿O cómo puedo hacer para mejorar esto? Gracias
//Capturo el dato y su índice del botón select Estado que cambia al elegir uno de la lista y //que corresponde a la matriz de la tabla presentada
function CapturarDatosSelectSimple(i,j) {
var v1 = document.getElementById("Estado"+i+j);
var valor1 = v1.options[v1.selectedIndex].value;
arreglo = new Array(3);
arreglo[0] = valor1;
arreglo[1] = i;
arreglo[2] = j;
return arreglo;
}
El código visual basic para presentar los datos es:
Protected Sub CargarListaAlumnos()
'Si nunca se ha registrado la asistencia de alumnos a este curso, se hace lo siguiente:
Dim ProgrAnual AsNewList(OfClsProgramacionAnualEN)
Dim objProgrAnual AsNewClsProgramacionAnualBL
ProgrAnual = objProgrAnual.FunProgramacionAnual_ConsultarPorRegistro(DplEmpresa.SelectedValue, DplPrograma.SelectedValue, DplAnho.SelectedValue)
If ProgrAnual.Count() > 0 Then
Dim fecha AsDate = ProgrAnual.Item(0).FechaInicio
tabla.Append("<th>Nro" + "</th>")
tabla.Append("<th>Apellidos y Nombres" + "</th>")
For j = 0 To ProgrAnual.Item(0).NroClases - 1
tabla.Append("<th>Clase N° " + Convert.ToString(j + 1) + "</th>")
Next
tabla.Append("<tr>")
tabla.Append("<th>" + "</th>")
tabla.Append("<th>" + "</th>")
For j = 0 To ProgrAnual.Item(0).NroClases - 1
If j = 0 Then
tabla.Append("<th>" + FormatDateTime(fecha, DateFormat.ShortDate) + "</th>")
Else
fecha = DateAdd(DateInterval.Day, 7, fecha)
tabla.Append("<th>" + FormatDateTime(fecha, DateFormat.ShortDate) + "</th>")
EndIf
Next
Dim alumnos AsNewList(OfClsInscripcionEN)
Dim objalumnos AsNewClsInscripcionBL
alumnos = objalumnos.FunInscripcion_ConsultarPorProgramacion(DplEmpresa.SelectedValue, DplAnho.SelectedValue, DplPrograma.SelectedValue)
If alumnos.Count > 0 Then
For i AsInteger = 0 To alumnos.Count - 1
tabla.Append("<tr>")
tabla.Append("<th>" + Convert.ToString(i + 1) + "</th>")
tabla.Append("<th>" + alumnos.Item(i).ApellidosyNombres + "</th>")
For j = 0 To ProgrAnual.Item(0).NroClases - 1
tabla.Append("<th>" + " <select name=" + comillas + "Estado" + Convert.ToString(i) + Convert.ToString(j) + comillas + "id=" + comillas + "Estado" + Convert.ToString(i) + Convert.ToString(j) + comillas + " >" +
"<option value=" + comillas + "P" + comillas + " selected>Presente</option>" +
"<option value=" + comillas + "T" + comillas + ">Tardanza</option>" +
"<option value=" + comillas + "F" + comillas + ">Falto</option>" +
" /select>" + "</th>")
'tabla.Append("<th>" + "<asp:DropDownList id=" + comillas + "Estado" + comillas + " runat=" + comillas + "server" + comillas + " >" + "<asp:ListItem Value=" + comillas + "P" + comillas + ">Presente</asp:ListItem>" + "<asp:ListItem Value=" + comillas + "T" + comillas + ">Tardanza</asp:ListItem>" + "<asp:ListItem Value=" + comillas + "F" + comillas + ">Falto</asp:ListItem>" + " </asp:DropDownList>" + "</th>")
'tabla.Append("<th>" + "<asp:DropDownList ID=" + comillas + "DplEstado" + comillas + " " + "runat=" + comillas + "server" + comillas + ">" + "<asp:ListItem Value=" + comillas + "P" + comillas + ">Presente</asp:ListItem>" + "<asp:ListItem Value=" + comillas + "T" + comillas + ">Tardanza</asp:ListItem>" + "<asp:ListItem Value=" + comillas + "F" + comillas + ">Falto</asp:ListItem>" + " </asp:DropDownList>" + "</th>")
Next
tabla.Append("</tr>")
Next
Else
LblCurso.Text = "No se encontraron registros"
EndIf
EndIf
EndSub
Todo esto me funciona bien. Devuelve esta pantalla
