Update 20240102

DPM2016/Klassen/clsSpalten.vb

@@ -3,6 +3,7 @@ Imports System.Data
 Imports System.Data.SqlTypes
 Imports System.Data.SqlClien
 Imports C1.Win.C1TrueDBGrid
+Imports Syncfusion.WinForms.DataGrid
 
 
 Public Class Tabellenspalte
@@ -158,7 +159,14 @@ Public Class Tabellenspalte
         Dim i As Integer
         Dim t As New DataTable()
         Dim s As String
-        anzcols = daten.Splits(0).DisplayColumns.Count
+        Dim IsSfDatagrid As Boolean = False
+        If daten.GetType.Name = "SfDataGrid" Then IsSfDatagrid = True
+        If IsSfDatagrid Then
+            anzcols = daten.columns.count
+        Else
+            anzcols = daten.Splits(0).DisplayColumns.Count
+
+        End If
 
         t = dt
         Me.Tabelle = tablename
@@ -167,7 +175,11 @@ Public Class Tabellenspalte
 
 
         For i = 0 To daten.Columns.Count - 1
-            s = daten.Columns(i).DataField
+            If IsSfDatagrid Then
+                s = daten.columns(i).MappingName
+            Else
+                s = daten.Columns(i).DataField
+            End If
             'If s = "ApplikationNr" Then
             '    MsgBox("Hallo")
 
@@ -175,44 +187,75 @@ Public Class Tabellenspalte
             Me.Feld = s
             Me.getspalte()
             If Me.spaltenname <> "" Then
-                daten.Columns(i).Caption = Me.spaltenname
+                If IsSfDatagrid Then
+                    daten.columns(i).headertext = Me.spaltenname
+                Else
+                    daten.Columns(i).Caption = Me.spaltenname
+
+                End If
 
                 If Me.ColWith = 0 Then
-                    daten.Splits(0).DisplayColumns(i).Width = 0
-                    daten.Splits(0).DisplayColumns(i).Visible = False
+                    If IsSfDatagrid Then
+                        daten.columns(i).width = 0
+                        daten.columns(i).visible = 0
+                    Else
+                        daten.Splits(0).DisplayColumns(i).Width = 0
+                        daten.Splits(0).DisplayColumns(i).Visible = False
+
+                    End If
                 Else
-                    daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
+                    If IsSfDatagrid Then
+                        daten.columns(i).Width = Me.ColWith
+                    Else
+                        daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
+                    End If
                 End If
 
                 If Me.locked Then
-                    daten.Splits(0).DisplayColumns(i).Locked = True
+                    If IsSfDatagrid Then
+                        daten.columns(i).style.readonly = True
+                    Else
+                        daten.Splits(0).DisplayColumns(i).Locked = True
+                    End If
+
                 End If
 
                 If Me.AlsHacken Then
-                    daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                    If Not IsSfDatagrid Then
+                        daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                    End If
+
                 End If
 
-                'Präsentation von aktiv
-                If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then
-                    daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
-                    daten.Columns(i).ValueItems.DefaultItem = True
-                    daten.Columns(i).DefaultValue = True
-                    daten.Columns(i).FilterText = True
+                If Not IsSfDatagrid Then 'Präsentation von aktiv
+                    If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then
+                        daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
+                        daten.Columns(i).ValueItems.DefaultItem = True
+                        daten.Columns(i).DefaultValue = True
+                        daten.Columns(i).FilterText = True
+                    End If
+
                 End If
-                Select Case LCase(daten.Columns(i).DataField)
-                    Case "erstellt_am", "erstelltam"
-                        daten.Columns(i).DefaultValue = Now
-                End Select
-                If daten.Columns(i).DataType.Name = "DateTime" Then
-                    daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
-                End If
-                If Me.Numberformat <> "" Then
-                    daten.columns(i).numberformat = Me.Numberformat
+                If Not IsSfDatagrid Then
+                    Select Case LCase(daten.Columns(i).DataField)
+                        Case "erstellt_am", "erstelltam"
+                            daten.Columns(i).DefaultValue = Now
+                    End Select
+                    If daten.Columns(i).DataType.Name = "DateTime" Then
+                        daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
+                    End If
+                    If Me.Numberformat <> "" Then
+                        daten.columns(i).numberformat = Me.Numberformat
+                    End If
                 End If
             End If
         Next
-        ColumnOrder(tablename, daten)
-        daten.HeadingStyle.WrapText = False
+        If Not IsSfDatagrid Then
+            ColumnOrder(tablename, daten)
+
+            daten.HeadingStyle.WrapText = False
+        End If
+
     End Function
 
     Public Function Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Filter As String = "")
@@ -274,8 +317,8 @@ Public Class Tabellenspalte
 
     Public Function ColumnOrder(ByVal Tablename As String, ByRef Data As C1TrueDBGrid)
         Dim spaltendata As DataTable = Globals.Spaltendaten
-        Dim dv() As DataRow
-        Dim dr As DataRow
+        Dim dv() As System.Data.DataRow
+        Dim dr As System.Data.DataRow
         Dim dc As New Collection
         dv = spaltendata.Select("Tabelle='" & Tablename & "'", "Reihenfolge desc, spaltenr")
         For Each c As C1DisplayColumn In Data.Splits(0).DisplayColumns
@@ -308,7 +351,7 @@ Public Class MySpaltenTitel
     End Sub
     Public Function Check_Table_Has_Spaltendata(ByVal tab As String) As Boolean
         If spaltendata.Rows.Count = 0 Then load_data()
-        Dim dv() As DataRow
+        Dim dv() As System.Data.DataRow
         dv = spaltendata.Select("Tabelle='" & tab + "'")
         If dv.Length = 0 Then Return False Else Return True
 
@@ -317,8 +360,8 @@ Public Class MySpaltenTitel
     ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String)
         If spaltendata.Rows.Count = 0 Then load_data()
 
-        Dim dv() As DataRow
-        Dim dr As DataRow
+        Dim dv() As System.Data.DataRow
+        Dim dr As System.Data.DataRow
         dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Spaltenr")
         If dv.Length = 0 Then
             spaltenname = ""