r_mehrizi
سه شنبه 03 شهریور 1388, 11:54 صبح
براي حذف ركوردها از گريدويو كد زير را نوشتم
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
Dim chkRemove As WebControls.CheckBox
Dim strIDs As String = ""
Dim boolCheck As Boolean = False
Dim cls As New clspeople
Dim dt As New mokhaberat.tbl_peopleDataTable
dt = ViewState("tmpdt")
Dim a As Integer = dt.Rows.Count
For Each gvRow As GridViewRow In GridView1.Rows
chkRemove = DirectCast(gvRow.FindControl("ChkRemove"), WebControls.CheckBox)
If chkRemove.Checked Then
boolCheck = True
'If gvRow.RowIndex = a - 1 Then
' dt.Rows(0).Delete()
'Else
dt.Rows(gvRow.RowIndex).Delete()
'End If
End If
Next
If boolCheck = True Then
ViewState("tmpdt") = dt
Bind_Grid()
End If
End Sub
به فرض مثال گريدويو 3 تا سطر داره من سطر يك و سه گريدويو را براي حذف انتخاب مي كنم وقتي برنامه اجرا ميشه خطاي زير را ميده
System.IndexOutOfRangeException: There is no row at position 2.
چطوري ميشه اين مشكل را حل كرد؟
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
Dim chkRemove As WebControls.CheckBox
Dim strIDs As String = ""
Dim boolCheck As Boolean = False
Dim cls As New clspeople
Dim dt As New mokhaberat.tbl_peopleDataTable
dt = ViewState("tmpdt")
Dim a As Integer = dt.Rows.Count
For Each gvRow As GridViewRow In GridView1.Rows
chkRemove = DirectCast(gvRow.FindControl("ChkRemove"), WebControls.CheckBox)
If chkRemove.Checked Then
boolCheck = True
'If gvRow.RowIndex = a - 1 Then
' dt.Rows(0).Delete()
'Else
dt.Rows(gvRow.RowIndex).Delete()
'End If
End If
Next
If boolCheck = True Then
ViewState("tmpdt") = dt
Bind_Grid()
End If
End Sub
به فرض مثال گريدويو 3 تا سطر داره من سطر يك و سه گريدويو را براي حذف انتخاب مي كنم وقتي برنامه اجرا ميشه خطاي زير را ميده
System.IndexOutOfRangeException: There is no row at position 2.
چطوري ميشه اين مشكل را حل كرد؟