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 Long
For i = 0 To DataGrid1.Items.Count - 1
''''先判断chkbox是否选中
Dim chk As CheckBox = DataGrid1.Items(i).Cells(3).FindControl("checkbox1")
If chk.Checked = True Then
delte(CInt(box.Text)) '''删除
End If
Next
Response.Redirect("favorites.aspx")
End If
End Sub