Protected Sub chkAuth_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim chk As New CheckBox
chk = sender
If chk.Checked = True Then
Dim gr As GridViewRow
gr = CType(chk.Parent.Parent, GridViewRow)
grdSample.Rows(gr.RowIndex).Cells(4).Text = i + 1
grdSample.Rows(gr.RowIndex).Cells(5).Text = "Yes"
Else
Dim gr As GridViewRow
gr = CType(chk.Parent.Parent, GridViewRow)
grdSample.Rows(gr.RowIndex).Cells(4).Text = ""
grdSample.Rows(gr.RowIndex).Cells(5).Text = ""
End If
End Sub