MS1003

app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb

@@ -204,4 +204,23 @@ Public Class frmCheckRightsRecords
     Private Sub frmCheckRightsRecords_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         _formloaded = True
     End Sub
+
+    Private Sub btnSelectVisiblRows_Click(sender As Object, e As EventArgs) Handles btnSelectVisiblRows.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") = True
+                    Exit For
+                End If
+            Next
+        Next
+    End Sub
 End Class