Public Sub CheckAll(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim chkTemp As New CheckBox Dim chkFind As New CheckBox Dim dsCount As New DataSet Try dsCount = DirectCast(Session("GetGridData"), DataSet) chkTemp = DirectCast(sender, CheckBox) If chkTemp.Checked Then If dsCount.Tables(0).Rows.Count = 0 Then txtCheckAll.Value = "1" End If For Each drTemp As DataRow In dsCount.Tables(0).Rows drTemp("IsSelected") = True txtCheckAll.Value = "1" Next Else If dsCount.Tables(0).Rows.Count = 0 Then txtCheckAll.Value = "0" End If For Each drTemp As DataRow In dsCount.Tables(0).Rows drTemp("IsSelected") = False txtCheckAll.Value = "0" Next End If SetSelectedItem(dgListItems.CurrentPageIndex * dgListItems.PageSize) Catch objEx As Exception Dim objExs As New HEWException(0, CInt(Session("UID")), _ "ArchiveList.aspx", "CheckAll", objEx, System.Reflection.Assembly.GetExecutingAssembly) SetErrors(objExs.ErrMsg, objExs.ErrSeverity) objExs = Nothing Finally End Try End Sub Private Sub SetSelectedItem(ByVal iCount As Integer) Dim chkTemp As CheckBox Try Dim dsTemp As DataSet = DirectCast(Session("GetGridData"), DataSet) For Each dgDataGridItem As DataGridItem In dgListItems.Items chkTemp = DirectCast(dgDataGridItem.Cells(0).FindControl("chkSelect"), CheckBox) If Not (dsTemp.Tables(0).Rows(iCount)("IsSelected")) Is DBNull.Value Then If CBool(dsTemp.Tables(0).Rows(iCount)("IsSelected")) = True Then chkTemp.Checked = True Else chkTemp.Checked = False End If End If iCount = iCount + 1 Next Session("GetGridData") = dsTemp Catch objEx As Exception Dim objExs As New HEWException(0, CInt(Session("UID")), _ "ArchiveList.aspx", "setSelectedItem", objEx, System.Reflection.Assembly.GetExecutingAssembly) SetErrors(objExs.ErrMsg, objExs.ErrSeverity) objExs = Nothing Finally End Try End Sub