I am providing the code that I have used to populate the grid and achieve the delete functionality.

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me

.Load

 

 

 

 

If Not IsPostBack

Then

 

Session(

 

 

UtilityConstant.SubPkgIdsListSession) = New List(Of ULong

)

Session(

 

 

UtilityConstant.SubmissionsDtSession) =

Nothing

 

 

 

 

End

If

 

 

 

 

 

 

 

 

 

 

PopulateGridForSubmissions()

 

 

 

 

 

End

Sub

 

 

 

 

Private Sub PopulateGridForSubmissions()

 

 

Try

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Dim submissionIdValue As ULong = Utilities.SessionManager

.GetSubmissionId()

 

 

 

If Session(UtilityConstant.SubmissionsDtSession) IsNot Nothing

Then

 

 

 

If CType(Session(UtilityConstant.SubmissionsDtSession), DataTable).Rows.Count > 0

Then

gvSubmissions.DataSource = Session(

 

 

UtilityConstant

.SubmissionsDtSession)

 

 

 

Else

 

 

 

Dim

SubmissionDetailsList = GetSubmission(submissionIdValue)

 

 

 

If SubmissionDetailsList.SubmissionDetails.Count <> 0

Then

 

 

 

Dim

dtSubmissions = GetSubmissionsDataTable(SubmissionDetailsList)

Session(

 

 

UtilityConstant

.SubmissionsDtSession) = dtSubmissions

gvSubmissions.DataSource = dtSubmissions

 

 

 

End

If

 

 

 

End

If

 

 

 

Else

 

 

 

Dim

SubmissionDetailsList = GetSubmission(submissionIdValue)

 

 

 

If SubmissionDetailsList.SubmissionDetails.Count <> 0

Then

 

 

 

Dim

dtSubmissions = GetSubmissionsDataTable(SubmissionDetailsList)

Session(

 

 

UtilityConstant

.SubmissionsDtSession) = dtSubmissions

gvSubmissions.DataSource = dtSubmissions

 

 

 

End

If

 

 

 

End

If

gvSubmissions.DataBind()

gvSubmissions.Columns(0).Hidden =

 

 

True

gvSubmissions.Columns(3).Hidden =

 

 

True

 

Catch

 

 

ex As Exception

 

 

 

 

End

Try

　

 

 

 

End

Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Private Sub gvSubmissions_CellSelectionChanged(ByVal sender As Object, ByVal e As Infragistics.Web.UI.GridControls.SelectedCellEventArgs) Handles

gvSubmissions.CellSelectionChanged

 

 

 

If e.CurrentSelectedCells(0).Column.Header.TemplateId = "Delete"

Then

　

lblError.Text =

 

 

String

.Empty

 

 

 

If Session(UtilityConstant.SubPkgIdsListSession) Is Nothing

Then

Session(

 

 

UtilityConstant.SubPkgIdsListSession) = New List(Of ULong

)

 

 

 

End

If

 

 

 

Dim

subPkgId = gvSubmissions.Rows(e.CurrentSelectedCells(0).Row.Index).Items(3).Text

 

 

 

Dim dtSubmissionsDelete = CType(Session(UtilityConstant.SubmissionsDtSession), DataTable

)

 

 

 

For Each rowDelete As DataRow In

dtSubmissionsDelete.Rows

 

 

 

If rowDelete(CreateSubmissionConstant.Col_SubPkgId).ToString() = subPkgId

Then

 

 

 

CType(Session(UtilityConstant.SubPkgIdsListSession), List(Of ULong)).Add(Convert

.ToUInt64(subPkgId))

rowDelete.Delete()

dtSubmissionsDelete.AcceptChanges()

Session(

 

 

UtilityConstant

.SubmissionsDtSession) = dtSubmissionsDelete

 

 

 

Exit For

 

 

 

End

If

 

 

 

Next

 

 

 

PopulateGridForSubmissions()

 

 

 

End

If

 

 

 

End

Sub

In the above code, I have used constants for all Session names and names of the columns.