Protected Sub cmdAddNAICS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAddNAICS.Click
CType(CType(sender, CheckBox).Parent.Parent, GridItem).Selected = CType(sender, CheckBox).Checked
Dim pvChk As Boolean
'Dim dataItem As Telerik.WebControls.GridDataItem
Dim cCoC As New cContractorClassification
If (CType(sender, CheckBox)).Checked Then
For Each dataItem As GridDataItem In gvSelectList.MasterTableView.Items
CType(dataItem.FindControl("chkSelect"), CheckBox).Checked = True
dataItem.Selected =
True
pvChk = dataItem.Selected
'If pvChk = True Then
cCoC.CONTRACTOR_SID = Session.Item(
"ContractorSID")
cCoC.MERCHANT_XREF_SID =
CInt(dataItem.Item("MERCHANT_XREF_SID").Text)
cCoC.CONTRACTOR_CLASSIFICATION_ACTIVE =
True
'cCoC.Update()
Next
Else
For Each dataItem As GridDataItem In gvSelectList.MasterTableView.Items
CType(dataItem.FindControl("chkSelect"), CheckBox).Checked = False
dataItem.Selected =
False
Next
End If
End Sub