一个简单的问题

Question

Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
        Dim id As Integer = CInt(e.Item.Cells(3).Text)
        Dim delsql As String = "delete from zdfw where id=" & CStr(id)
        If id <> 0 Then
            If deleterow(delsql) = 0 Then
                getdataset()
                DataGrid1.EditItemIndex = -1
                Page.DataBind()
            End If
        End If        '==============下面的代码是删除DS中的数据，但是没有立即提交到数据库中=========
        'Const prk_id As Integer = 0
        'Dim dt As DataTable = ds.Tables("zlfw")
        'Dim pk(1) As DataColumn
        'pk(0) = dt.Columns(prk_id)
        'dt.PrimaryKey = pk
        'Dim dr As DataRow = dt.Rows.Find(id)
        'If Not dr Is Nothing Then
        'dr.Delete()
        'Dim dschange As DataSet = ds.GetChanges()
        'Dim cb As New OleDb.OleDbCommandBuilder(da)
        'If Not dschange Is Nothing Then
        'da.Update(dschange, "zlfw")
        'Response.Write("dfdfd")
        'End If
        'End If
        'Page.DataBind()
        '===================================结束========================================
    End Sub    Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
        Dim id1 As String = Trim(CType(e.Item.Cells(3).Controls(0), TextBox).Text)
        Dim sfzh As String = Trim(CType(e.Item.Cells(4).Controls(0), TextBox).Text)
        Dim xm As String = Trim(CType(e.Item.Cells(5).Controls(0), TextBox).Text)
        Dim xb As String = Trim(CType(e.Item.Cells(6).Controls(0), TextBox).Text)
        Dim fwcs As String = Trim(CType(e.Item.Cells(7).Controls(0), TextBox).Text)
        Dim zz As String = Trim(CType(e.Item.Cells(8).Controls(0), TextBox).Text)
        Dim czfwdz As String = Trim(CType(e.Item.Cells(9).Controls(0), TextBox).Text)
        Dim lxdh As String = Trim(CType(e.Item.Cells(10).Controls(0), TextBox).Text)
        Dim fjs As String = Trim(CType(e.Item.Cells(11).Controls(0), TextBox).Text)
        Dim jwq As String = Trim(CType(e.Item.Cells(12).Controls(0), TextBox).Text)
        Dim updatesql As String = "update zdfw set sfzh='" & sfzh & "',xm='" & xm & "',xb='" & xb & "',fwcs='" & fwcs & "',zz='" & zz & "',czfwdz='" & czfwdz & "',lxdh='" & lxdh & "',fjs='" & fjs & "',jwq='" & jwq & "' where id =" & id1
        Response.Write(updatesql)
        If updaterow(updatesql) = 0 Then
            getdataset()
            DataGrid1.EditItemIndex = -1
            Page.DataBind()
        End If
    End Sub    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        getdataset()
    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As DataSet = getdataset()
        Dim dt As DataTable = ds.Tables("zlfw")
        Dim dv As DataView = New DataView(dt)
        dv.RowFilter = "姓名 like '张%'"
        DataGrid1.DataSource = dv
        DataGrid1.DataBind()
    End Sub
End Class

Answer 1

Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        getdataset()
    End Sub
==>Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        Dim ds As DataSet = getdataset()
        Dim dt As DataTable = ds.Tables("zlfw")
        Dim dv As DataView = New DataView(dt)
     DataGrid1.DataSource = dv
    DataGrid1.DataBind()
    End Sub

Answer 2

小弟刚学ASP.NET，请各位帮忙，谢谢

Answer 3

cpp2017(幕白兄)
说的，其实和我原来的一样啊onpagechange?在哪？