次の疑問があります。ボタンを配置したいaspxページがあり、次に、クリックするとこのイベントが発生する別のボタンを持つ別のaspxページがあります。別のページからボタンを配置すると、これが 2 番目のページのボタンからイベントを呼び出します。これどうやってするの?。これはイベントです:
Protected Sub lnkEnviarDatosCliente_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) 'Handles lnkEnviarDatosCliente.ServerClick
Dim dtcEncuesta As New EncuestasDataContext
Dim puntuacion As New PuntuacionCuestionEmpleado
Dim participado As New Participacion
Dim cuestiones As List(Of DatosEncuesta) = listadoCuestiones
'Dim resultados = CType(sender.parent.parent.Controls.Item(2).controls.item(7), Grid).Rows.Count
Dim resultados = CType(sender.parent.parent.controls.item(2).FindControl("gdgRespuestasNuevas"), Grid)
'For n As Integer = 0 To resultados.Rows.Count - 1
' cuestiones.Item(n).IdCuestionEncuesta = CType(Repeater1.Controls.Item(2).Controls.Item(7).FindControl("gdgRespuestasNuevas"), Grid).DataKeys(n).Item("IdCuestionEncuesta")
' cuestiones.Item(n).Cuestion = CType(Repeater1.Controls.Item(2).Controls.Item(7).FindControl("gdgRespuestasNuevas"), Grid).DataKeys(n).Item("CuestionEncuesta")
'Next
Dim puntosMax As Integer = cuestiones.Count
'Dim puntosMax As Integer = CType(Repeater1.Controls.Item(1).FindControl("gdgRespuestasNuevas"), Grid).Rows.Count
'guarda la puntuación asignada
For i As Integer = 0 To cuestiones.Count - 1
'For i As Integer = 0 To CType(CType(sender, Grid).Parent.FindControl("gdgRespuestasNuevas"), Grid).Rows.Count - 1
puntuacion = New PuntuacionCuestionEmpleado
puntuacion.CodigoEmpleado = Me.IdEmpleado
'puntuacion.CodigoCuestionEncuesta = CType(CType(sender, Grid).Parent.FindControl("gdgRespuestasNuevas"), Grid).DataKeys(i).Item("IdCuestionEncuesta")
puntuacion.CodigoCuestionEncuesta = cuestiones.Item(i).IdCuestionEncuesta
puntuacion.Puntuacion = puntosMax - i
dtcEncuesta.PuntuacionCuestionEmpleado.InsertOnSubmit(puntuacion)
Next
'Comprueba si se ha cambiado la lista original (el grid original)
Dim esOrdenOriginal As Boolean = OrdenOriginal()
'guarda los datos de Participación
participado = New Participacion
If esOrdenOriginal Then 'True: Si no se ha modificado del original...
participado.Participa = False
Else
participado.Participa = True
End If
participado.FechaHora = Now()
participado.CodigoEmpleado = Me.IdEmpleado
participado.CodigoEncuesta = lblDatoEncuesta.Text
dtcEncuesta.Participacion.InsertOnSubmit(participado)
dtcEncuesta.SubmitChanges()
ScriptManager.RegisterStartupScript(Me, Me.GetType, "CerrarEncuesta", "CerrarEncuesta();", True)
End Sub
このイベントは enc.aspx からのもので、ボタンを index.aspx に配置したいと考えています。このイベントは、クライアントからサーバーにデータを送信することです。何か助けて?. ありがとう