从另一个aspx调用一个事件

时间:2013-05-25 08:18:30

标签: .net vb.net events

我有下一个疑问,我有一个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上。此事件是将数据从客户端发送到服务器。有什么帮助吗?感谢

0 个答案:

没有答案