Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
        If e.CommandName = "delete" Then '========如果删除
            Dim i As Integer
            i = (DataGrid1.CurrentPageIndex * 10) + e.Item.ItemIndex
            Dim filename As String
            Dim sqlconn As String
            Dim ds1 As DataSet = New DataSet()
            If tol = False Then
                sqlconn = "select * from guest"
            Else
                sqlconn = "select * from guest where pdclass='" & DropDownList1.SelectedItem.Text & "' and pdname like '%" & TextBox1.Text & "%'"
            End If
            Dim ds As DataSet = New DataSet()
            adocmd = New OleDbDataAdapter(sqlconn, sqlprov)
            adocmd.Fill(ds, "guest")
            mytable = ds.Tables.Item(0)
            mytable.Rows.Item(i).Delete()
            cmd = New OleDbCommandBuilder(adocmd)
            adocmd.Update(ds, "guest")
            Response.Redirect("temp.aspx?caption=删除")
        End If i = (DataGrid1.CurrentPageIndex * 10) + e.Item.ItemIndex
是获得当前页数*你定页的每页数量+当前你所指的索引=你表中的第i行