jj 31.05

app/DD-Record-Organiser/ClassControlValues.vb

@@ -291,6 +291,10 @@ Public Class ClassControlValues
                     Dim gridview = DirectCast(control, DataGridView)
                     ControlLoader.DataGridView.LoadValue(gridview, values)
 
+                Case GetType(DevExpress.XtraGrid.GridControl)
+                    Dim gridcontrol As DevExpress.XtraGrid.GridControl = DirectCast(control, DevExpress.XtraGrid.GridControl)
+                    ControlLoader.DataGridViewCheckable.LoadValue(gridcontrol, values)
+
                 Case Else
                     ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False)
             End Select
@@ -582,6 +586,20 @@ Public Class ClassControlValues
                     dgv.Refresh()
                 End If
 
+            Case GetType(DevExpress.XtraGrid.GridControl)
+                Dim gc = DirectCast(control, DevExpress.XtraGrid.GridControl)
+                Dim gridview As DevExpress.XtraGrid.Views.Grid.GridView = gc.MainView
+
+                If gridview.RowCount = 0 Then
+                    Exit Select
+                End If
+
+                For i As Integer = 0 To gridview.RowCount - 1
+                    Dim fieldName As String = gridview.Columns(0).FieldName
+                    Dim rowhandle As Integer = gridview.GetRowHandle(i)
+                    Dim rowvalue As String = gridview.GetRowCellValue(rowhandle, fieldName)
+                    gridview.UnselectRow(rowhandle)
+                Next
         End Select
     End Sub
 #End Region