Sortierung der in der DB-Tabelle Spalaten festgelegten Reihenfolge

[Visual Basic]
Public Function ColumnOrder( _ 
   ByVal Tablename As String, _ 
   ByRef Data As C1TrueDBGrid _ 
) As Object

Parameter

Tablename

Data

Quellcode

[Visual Basic]
        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 dc As New Collection 
            dv = spaltendata.Select("Tabelle='" & Tablename & "'", "Reihenfolge desc, Eintragnr") 
            For Each c As C1DisplayColumn In Data.Splits(0).DisplayColumns 
                dc.Add(c) 
            Next 
            While Data.Splits(0).DisplayColumns.Count > 0 
                Data.Splits(0).DisplayColumns.RemoveAt(0) 
            End While 
 
            For Each dr In dv 
                For Each e As C1DisplayColumn In dc 
                    If e.Name = dr.Item(3) Then 
                        Data.Splits(0).DisplayColumns.Insert(0, e) 
                    End If 
                Next 
            Next 
 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

Tabellenspalte