jj 08.06 gridviewcheckable

app/DD-Record-Organiser/ClassControlLoader.vb

@@ -110,20 +110,27 @@
         End Function
 
         Overloads Shared Sub SetDataSource(control As DevExpress.XtraGrid.GridControl, dt As DataTable)
-            Dim sw As Stopwatch = Stopwatch.StartNew()
-            Dim columnCount As Integer = dt.Columns.Count
+            Try
+                Dim columnCount As Integer = dt.Columns.Count
+                Dim rowCount As Integer = dt.Rows.Count
 
-            control.BeginUpdate()
+                ' Zuerst die Datasource leeren und neu setzen
+                control.DataSource = Nothing
+                control.DataSource = dt
 
-            ' Damit beim Setzen von DisplayMember und ValueMember kein Fehler auftritt, 
-            ' muss die Datasource zunächst geleert werden und der selected index auf -1 gesetzt werden.
-            control.DataSource = Nothing
+                ' Wir müssen PopulateColumns und RefreshData nach dem Setzen der Datasource aufrufen
+                ' ansonsten wird das Grid leer bleiben und die neuen Daten nicht anzeigen
+                control.MainView.PopulateColumns()
+                control.MainView.RefreshData()
 
-            ' Als letztes setzen wir die DataSource
-            control.DataSource = dt
-            control.EndUpdate()
-            sw.Stop()
-            ' Console.WriteLine("SetDataSource for {0} took {1}ms", control.Name, sw.ElapsedMilliseconds)
+                'Jetzt noch den Columnname ändern
+                Dim gridview = DirectCast(control.MainView, DevExpress.XtraGrid.Views.Grid.GridView)
+
+                Dim caption As String = ClassDatabase.Execute_Scalar(String.Format("SELECT COL_NAME FROM TBPMO_CONTROL WHERE GUID = {0}", DirectCast(control.Tag, ClassControlMetadata).Id))
+                gridview.Columns(0).Caption = caption
+            Catch ex As Exception
+                MsgBox("Error in SetDataSource - GridControl: " & ex.Message, MsgBoxStyle.Critical)
+            End Try
         End Sub
 
         Overloads Shared Sub SetDataSource(control As CustomComboBox, dt As DataTable)