0

我有下一个疑问,我有一个 aspx 页面,我想在其中放置一个按钮,然后我有另一个带有另一个按钮的 aspx 页面,当您单击它时它会发生此事件。我希望当您从另一个页面上放置按钮时,这个按钮会从第二个页面的按钮调用事件。我怎样才能做到这一点?。这是事件:

 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。该事件是从客户端向服务器发送数据。有什么帮助吗?谢谢

4

0 回答 0