Vb.net 回发或回调参数无效。使用'启用事件验证&书信电报；pages enableEventValidation=&x201C；正确”/&燃气轮机'；

如何解决此问题。每次单击“查看/编辑”按钮时，它都会显示错误页，这是无效的回发或回调参数。在配置或页面中使用启用事件验证。出于安全目的，此功能验证回发或回调事件的参数是否源自最初呈现它们的服务器控件。如果数据有效且符合要求，请使用ClientScriptManager.RegisterForEventValidation方法注册回发或回调数据以进行验证

---

公共类货币列表

Inherits System.Web.UI.Page

Dim mydb As New DbInterface(EHRMSWEB_CONN)
'Dim regVal As New RegistrySettings()
Dim ds As DataSet
Dim dt As DataTable
Dim path As New FilePath
Dim APPSETTINGPath As String
Dim strFirstDayofWk As String

Protected WithEvents txtSortExpression As System.Web.UI.WebControls.TextBox
Protected WithEvents dg As System.Web.UI.WebControls.DataGrid





<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN: This method call is required by the Web Form Designer
    'Do not modify it using the code editor.
    InitializeComponent()
End Sub



Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If Session("UserId") = "" Or (Session("UserType") <> 3 And Session("UserType") <> 2) Then
        Response.Redirect("redirect_admin.aspx?url=login_admin.aspx")
    End If

    APPSETTINGPath = path.LocatePath(4)
    strFirstDayofWk = path.getAppSetting(2, APPSETTINGPath)

    ds = Open_CLCURRENCY(mydb.dbConnEHrmsWeb, mydb.DAeHrmsWeb, 2)
    dt = ds.Tables("CLCURRENCY")
    dg.DataSource = dt
    dg.DataBind()
End Sub

Private Sub dg_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dg.SortCommand
    Dim dv As DataView = dt.DefaultView

    dv.Sort = e.SortExpression
    txtSortExpression.Text = e.SortExpression
    dg.DataSource = dv
    dg.DataBind()
End Sub

Private Sub dg_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dg.PageIndexChanged
    Dim dv As DataView = dt.DefaultView
    If txtSortExpression.Text <> "" Then
        dv.Sort = txtSortExpression.Text
    End If
    dg.DataSource = dv
    dg.DataBind()
End Sub

Private Sub dg_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dg.ItemDataBound

    If e.Item.ItemIndex <> -1 Then
        Dim btnExRt As Button = e.Item.FindControl("btnExRt")
        Dim strPage As String
        If e.Item.DataItem("Ex_Rt_Type") = 0 Then
            strPage = "currencyratemonthly.aspx?"
        ElseIf e.Item.DataItem("Ex_Rt_Type") = 1 Then

            strPage = "currencyrateweekly.aspx?firstday=" & strFirstDayofWk & "&"
        ElseIf e.Item.DataItem("Ex_Rt_Type") = 2 Then
            strPage = "currencyratedaily.aspx?"
        End If
        btnExRt.Attributes.Add("OnClick", "javascript:window.open('" & strPage & "CurrCd=" & e.Item.DataItem("CurrencyCd") & "','View','toolbar=no,resizable=yes,scrollbars=yes,left=0,top=0,screenX=0,screenY=0,width=675,height=500');")
    End If
End Sub

Protected Sub dg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dg.SelectedIndexChanged

End Sub

继承System.Web.UI.Page
Dim mydb作为新的数据库接口（EHRMSWEB_CONN）
'Dim regVal作为新注册表设置（）
Dim ds作为数据集
作为数据表的Dim dt
将路径设置为新文件路径
Dim APPSETTINGPath作为字符串
Dim strFirstDayofWk作为字符串
受事件txtSortExpression保护，如System.Web.UI.WebControl.TextBox
受事件dg保护，如System.Web.UI.WebControl.DataGrid
私有子初始化组件（）
端接头
私有子页_Init（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Init
'CODEGEN:Web表单设计器需要此方法调用
'不要使用代码编辑器修改它。
初始化组件（）
端接头
私有子页_Load（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
如果会话（“用户ID”）=”或（会话（“用户类型”）3和会话（“用户类型”）2），则
Response.Redirect（“Redirect\u admin.aspx？url=login\u admin.aspx”）
如果结束
APPSETTINGPath=path.LocatePath（4）
strFirstDayofWk=path.getAppSetting（2，APPSETTINGPath）
ds=开放式货币（mydb.dbconnehrmssweb，mydb.DAeHrmsWeb，2）
dt=ds.表格（“CLCURRENCY”）
dg.DataSource=dt
dg.数据绑定（）
端接头
私有子dg_SortCommand（ByVal源作为对象，ByVal e作为System.Web.UI.WebControl.DataGridSortCommand和EventTargets）处理dg.SortCommand
作为数据视图的Dim dv=dt.DefaultView
dv.Sort=e.SortExpression
txtSortExpression.Text=e.SortExpression
dg.DataSource=dv
dg.数据绑定（）
端接头
私有子dg_PageIndexChanged（ByVal源作为对象，ByVal e作为System.Web.UI.WebControl.DataGridPageChangedEventArgs）处理dg.PageIndexChanged
作为数据视图的Dim dv=dt.DefaultView
如果txtSortExpression.Text为“”，则
dv.Sort=txtSortExpression.Text
如果结束
dg.DataSource=dv
dg.数据绑定（）
端接头
私有子dg_ItemDataBound（ByVal sender作为对象，ByVal e作为System.Web.UI.WebControls.DataGridItemEventArgs）处理dg.ItemDataBound
如果e.Item.ItemIndex为-1，则
Dim btnExRt As Button=e.Item.FindControl（“btnExRt”）
作为字符串的Dim strPage
如果e.Item.DataItem（“Ex_Rt_Type”）=0，则
strPage=“currencyratemonthly.aspx？”
ElseIf e.Item.DataItem（“Ex_Rt_Type”）=1，则
strPage=“currencyrateweekly.aspx？firstday=“&strfirstdayOfk&”和”
ElseIf e.Item.DataItem（“Ex_Rt_Type”）=2，则
strPage=“currencyratedaily.aspx？”
如果结束
btnExRt.Attributes.Add（“OnClick”，“javascript:window.open”（“&strPage&”CurrCd=“&e.Item.DataItem”（“CurrencyCd”）&“，“View”，“toolbar=no，resizeable=yes，scrollbars=yes，left=0，top=0，screenX=0，screenY=0，width=675，height=500”）；）
如果结束
端接头
受保护的子dg_SelectedIndexChanged（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理dg.SelectedIndexChanged
端接头

末级

希望你能帮我解决这个问题，并提前感谢你。

Inherits System.Web.UI.Page

Dim mydb As New DbInterface(EHRMSWEB_CONN)
'Dim regVal As New RegistrySettings()
Dim ds As DataSet
Dim dt As DataTable
Dim path As New FilePath
Dim APPSETTINGPath As String
Dim strFirstDayofWk As String

Protected WithEvents txtSortExpression As System.Web.UI.WebControls.TextBox
Protected WithEvents dg As System.Web.UI.WebControls.DataGrid





<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN: This method call is required by the Web Form Designer
    'Do not modify it using the code editor.
    InitializeComponent()
End Sub



Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If Session("UserId") = "" Or (Session("UserType") <> 3 And Session("UserType") <> 2) Then
        Response.Redirect("redirect_admin.aspx?url=login_admin.aspx")
    End If

    APPSETTINGPath = path.LocatePath(4)
    strFirstDayofWk = path.getAppSetting(2, APPSETTINGPath)

    ds = Open_CLCURRENCY(mydb.dbConnEHrmsWeb, mydb.DAeHrmsWeb, 2)
    dt = ds.Tables("CLCURRENCY")
    dg.DataSource = dt
    dg.DataBind()
End Sub

Private Sub dg_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles dg.SortCommand
    Dim dv As DataView = dt.DefaultView

    dv.Sort = e.SortExpression
    txtSortExpression.Text = e.SortExpression
    dg.DataSource = dv
    dg.DataBind()
End Sub

Private Sub dg_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles dg.PageIndexChanged
    Dim dv As DataView = dt.DefaultView
    If txtSortExpression.Text <> "" Then
        dv.Sort = txtSortExpression.Text
    End If
    dg.DataSource = dv
    dg.DataBind()
End Sub

Private Sub dg_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dg.ItemDataBound

    If e.Item.ItemIndex <> -1 Then
        Dim btnExRt As Button = e.Item.FindControl("btnExRt")
        Dim strPage As String
        If e.Item.DataItem("Ex_Rt_Type") = 0 Then
            strPage = "currencyratemonthly.aspx?"
        ElseIf e.Item.DataItem("Ex_Rt_Type") = 1 Then

            strPage = "currencyrateweekly.aspx?firstday=" & strFirstDayofWk & "&"
        ElseIf e.Item.DataItem("Ex_Rt_Type") = 2 Then
            strPage = "currencyratedaily.aspx?"
        End If
        btnExRt.Attributes.Add("OnClick", "javascript:window.open('" & strPage & "CurrCd=" & e.Item.DataItem("CurrencyCd") & "','View','toolbar=no,resizable=yes,scrollbars=yes,left=0,top=0,screenX=0,screenY=0,width=675,height=500');")
    End If
End Sub

Protected Sub dg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dg.SelectedIndexChanged

End Sub