MS

app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb

@@ -223,4 +223,24 @@ Public Class frmCheckRightsRecords
             Next
         Next
     End Sub
+
+    Private Sub btnUnselect_Click(sender As Object, e As EventArgs) Handles btnUnselect.Click
+        Dim listRecords As New ArrayList
+        Dim collist As New ArrayList
+        For i = 0 To GridViewMain.RowCount
+            Dim recid = GridViewMain.GetRowCellValue(i, "Record-ID")
+            If Not IsNothing(recid) Then
+                listRecords.Add(recid)
+            End If
+        Next
+        For Each row As DataRow In DT_DATA.Rows
+            For Each Record As String In listRecords
+                If Record = row.Item("Record-ID") Then
+                    row.Item("Selection") = False
+                    Exit For
+                End If
+            Next
+        Next
+    End Sub
+
 End Class