MS

app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb

@@ -35,7 +35,7 @@ Partial Class frmCheckRightsRecords
         Me.GridViewMain = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.btnSelectVisiblRows = New System.Windows.Forms.Button()
-        Me.Button1 = New System.Windows.Forms.Button()
+        Me.btnUnselect = New System.Windows.Forms.Button()
         CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -163,24 +163,24 @@ Partial Class frmCheckRightsRecords
         Me.btnSelectVisiblRows.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnSelectVisiblRows.UseVisualStyleBackColor = True
         '
-        'Button1
+        'btnUnselect
         '
-        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(1060, 59)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(178, 39)
-        Me.Button1.TabIndex = 12
-        Me.Button1.Text = "Unselect all visible Rows"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.UseVisualStyleBackColor = True
+        Me.btnUnselect.Image = CType(resources.GetObject("btnUnselect.Image"), System.Drawing.Image)
+        Me.btnUnselect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnUnselect.Location = New System.Drawing.Point(1060, 59)
+        Me.btnUnselect.Name = "btnUnselect"
+        Me.btnUnselect.Size = New System.Drawing.Size(178, 39)
+        Me.btnUnselect.TabIndex = 12
+        Me.btnUnselect.Text = "Unselect all visible Rows"
+        Me.btnUnselect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnUnselect.UseVisualStyleBackColor = True
         '
         'frmCheckRightsRecords
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1304, 596)
-        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.btnUnselect)
         Me.Controls.Add(Me.btnSelectVisiblRows)
         Me.Controls.Add(Me.Label2)
         Me.Controls.Add(Me.GridControlMain)
@@ -217,5 +217,5 @@ Partial Class frmCheckRightsRecords
     Friend WithEvents GridViewMain As DevExpress.XtraGrid.Views.Grid.GridView
     Friend WithEvents Label2 As System.Windows.Forms.Label
     Friend WithEvents btnSelectVisiblRows As System.Windows.Forms.Button
-    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents btnUnselect As System.Windows.Forms.Button
 End Class

app/RecordOrganizer_RightManager/frmCheckRightsRecords.resx

@@ -129,12 +129,12 @@
         eapjQtAnxM5THRNCrmJeQku+Ch0J4QLYS+ifBfoIBAAAAABJRU5ErkJggg==
 </value>
   </data>
-  <data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="btnUnselect.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
-        xAAADsQBlSsOGwAAAHRJREFUOE+ljbsNgDAUA5mNqUIdlgSGAJrUHLKEHlG+YLmInu6cIXTmFsbm/BOO
-        /SxUTEVYl4279zNvMRUBlDsabzElwc5TMSXBzlMxseDcxAMoms8KDxfNZwUqlNh5qmNC0CfEzlMdE0Ku
-        Yl5CS74KHQnhAthL6J8F+ggEAAAAAElFTkSuQmCC
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
+        wwAADsMBx2+oZAAAAHBJREFUOE9joBr49u3bf1IwVBsCgASdnJyIwqMG4DGAFAzVhglQFAXPAWMUMUIA
+        pChmwj4MA+BihABMI0gDzAAYm1gD3iNrRjYEJAdVhht8+fLFAN0QmGaQHFQZfoBsCMmaYQBmCFmaYQCk
+        Eb9mBgYA2ox3fnI0cMgAAAAASUVORK5CYII=
 </value>
   </data>
 </root>

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