GridView的'GridView1'触发了未处理的事件PageIndexChanging。怎么解决这个问题...... [英] The GridView 'GridView1' fired event PageIndexChanging which wasn't handled. how solve this problem...

问题描述

导入System.Data

导入System.Data.SqlClient

公共类DepartmentForm

继承System.Web.UI.Page

Dim strcon As String = ConfigurationManager.ConnectionStrings（DeviceDBConnectionString）。ToString

Dim con As SqlConnection = New SqlConnection（strcon）

Dim cmd As新的SqlCommand

Dim dr As SqlDataReader



私有财产ds作为对象



受保护的子Page_Load（ByVal sender As Object，ByVal e As System.EventArgs）Handles Me.Load

BindGridView（）

End Sub



受保护的子Button1_Click（ByVal sender As Object，ByVal e As EventArgs）处理Button1.Click



尝试

con.Open（）

cmd.Connection = con

cmd.CommandText =INSERT INTO TBL_DEPARTMENT_COD VALUES（'&txtdepcode.Text&'，' &txtdepname.Text&'）

cmd.ExecuteNonQuery（）



Catch ex As Exception

'MsgBox.Show（在表格上插入记录时出错...&ex.Message，插入记录）

MsgBox（错误和ex.Message）

最后

con.Close（）

结束尝试

结束子

受保护的子BindGridView（）

Dim da As New SqlDataAdapter（SELECT [DEPCODE]，[DEPDESC] FROM [TBL_DEPARTMENT_COD]，strcon）

Dim ds As New DataSet（）

da.Fill（ds）

GridView1.DataSource = ds

GridView1.DataBind（）

End Sub



受保护的子GridView1_SelectedIndexChanged（ByVal sender As Object，ByVal e As EventArgs）处理GridView1.SelectedIndexChanged

txtdepcode.Text = GridView1.SelectedRow.Cells（0）。文字

txtdepnam e.Text = GridView1.SelectedRow.Cells（1）.Text

End Sub



受保护的Sub Button2_Click（ByVal sender As Object，ByVal e作为EventArgs）处理btnupdate.Click

尝试

con.Open（）

cmd.Connection = con

cmd.CommandText =UPDATE TBL_DEPARTMENT_COD SET DEPCODE ='&txtdepcode.Text&'，DEPDESC ='&txtdepname.Text&'WHERE DEPCODE ='&txtdepcode.Text&'



cmd.ExecuteNonQuery（）



Catch ex As Exception

'MsgBox.Show（在桌面上插入记录时出错...&ex.Message，插入记录）

MsgBox（错误和ex.Message）

最后

con.Close（）

结束尝试

结束子



受保护的子按钮3_Click（ ByVal sender As Object，ByVal e As EventArgs）处理btndelete.Cl ick

尝试

con.Open（）

cmd.Connection = con

cmd.CommandText =DELETE FROM TBL_DEPARTMENT_COD WHERE DEPCODE ='&txtdepcode.Text&'



cmd.ExecuteNonQuery（）



Catch ex As Exception

'MsgBox.Show（在表格上插入记录时出错...&ex.Message，插入记录）

MsgBox（ 错误&ex.Message）

最后

con.Close（）

结束尝试

End Sub

Public Sub ClearTextBox（ByVal root As Control）

For each ctrl As Control in root.Controls

ClearTextBox（ctrl）

如果TypeOf ctrl是TextBox那么

CType（ctrl，TextBox）.Text = String.Empty

结束如果

下一步ctrl

End Sub

Pro截取Sub Button4_Click（ByVal sender As Object，ByVal e As EventArgs）处理btnClear.Click

ClearTextBox（Me）

End Sub

受保护的子GridView1_PageIndexChanging（ByVal sender As Object，ByVal e As GridViewPageEventArgs）

GridView1.PageIndex = e.NewPageIndex

BindGridView（）

End Sub

结束类

Imports System.Data
Imports System.Data.SqlClient
Public Class DepartmentForm
Inherits System.Web.UI.Page
Dim strcon As String = ConfigurationManager.ConnectionStrings("DeviceDBConnectionString").ToString
Dim con As SqlConnection = New SqlConnection(strcon)
Dim cmd As New SqlCommand
Dim dr As SqlDataReader

Private Property ds As Object

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
BindGridView()
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

Try
con.Open()
cmd.Connection = con
cmd.CommandText = "INSERT INTO TBL_DEPARTMENT_COD VALUES('" & txtdepcode.Text & "','" & txtdepname.Text & "')"
cmd.ExecuteNonQuery()

Catch ex As Exception
'MsgBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")
MsgBox("Error " & ex.Message)
Finally
con.Close()
End Try
End Sub
Protected Sub BindGridView()
Dim da As New SqlDataAdapter("SELECT [DEPCODE], [DEPDESC] FROM [TBL_DEPARTMENT_COD]", strcon)
Dim ds As New DataSet()
da.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
End Sub

Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged
txtdepcode.Text = GridView1.SelectedRow.Cells(0).Text
txtdepname.Text = GridView1.SelectedRow.Cells(1).Text
End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnupdate.Click
Try
con.Open()
cmd.Connection = con
cmd.CommandText = "UPDATE TBL_DEPARTMENT_COD SET DEPCODE ='" & txtdepcode.Text & "', DEPDESC = '" & txtdepname.Text & "'WHERE DEPCODE= '" & txtdepcode.Text & "'"

cmd.ExecuteNonQuery()

Catch ex As Exception
'MsgBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")
MsgBox("Error " & ex.Message)
Finally
con.Close()
End Try
End Sub

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btndelete.Click
Try
con.Open()
cmd.Connection = con
cmd.CommandText = "DELETE FROM TBL_DEPARTMENT_COD WHERE DEPCODE ='" & txtdepcode.Text & "'"

cmd.ExecuteNonQuery()

Catch ex As Exception
'MsgBox.Show("Error while inserting record on table..." & ex.Message, "Insert Records")
MsgBox("Error " & ex.Message)
Finally
con.Close()
End Try
End Sub
Public Sub ClearTextBox(ByVal root As Control)
For Each ctrl As Control In root.Controls
ClearTextBox(ctrl)
If TypeOf ctrl Is TextBox Then
CType(ctrl, TextBox).Text = String.Empty
End If
Next ctrl
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnClear.Click
ClearTextBox(Me)
End Sub
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As GridViewPageEventArgs)
GridView1.PageIndex = e.NewPageIndex
BindGridView()
End Sub
End Class

推荐答案

vb.net code:

 Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As GridViewPageEventArgs)
        BindGridView()
        GridView1.PageIndex = e.NewPageIndex
        GridView1.DataBind()
    End Sub"

The ASPX page

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="true" AllowPaging="true" PageSize="10" OnPageIndexChanging="GridView1_PageIndexChanging">

这篇关于GridView的'GridView1'触发了未处理的事件PageIndexChanging。怎么解决这个问题......的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！