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行
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行
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货