[Visual Basic]
Public Function Spaltentitel_aktualisieren( _ 
   ByRef daten As Object, _ 
   ByRef tablename As String, _ 
   ByRef ds As DataSet _ 
) As Object

Parameter

daten

tablename

ds

Quellcode

[Visual Basic]
        Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet) 
            Dim anzcols As Integer 
            Dim i As Integer 
            Dim s As String 
            anzcols = daten.Splits(0).DisplayColumns.Count 
            Me.Tabelle = tablename 
            For i = 0 To daten.Columns.Count - 1 
                s = daten.Columns(i).DataField 
                Me.Feld = s 
                Me.getspalte() 
                daten.Columns(i).Caption = Me.spaltenname 
 
                If Me.ColWith = 0 Then 
                    daten.Splits(0).DisplayColumns(i).Width = 0 
                    daten.Splits(0).DisplayColumns(i).Visible = False 
                Else 
                    daten.Splits(0).DisplayColumns(i).Width = Me.ColWith 
                End If 
 
                If Me.locked Then 
                    daten.Splits(0).DisplayColumns(i).Locked = True 
                End If 
 
                If Me.AlsHacken Then 
                    daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox 
                End If 
 
                'Präsentation von aktiv 
                If LCase(daten.Columns(i).DataField) = "aktiv" 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 
                    'Dim items As C1.Win.C1TrueDBGrid.ValueItems = daten.Columns("aktiv").ValueItems 
                    'items.Values.Clear() 
                    'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("False", False)) ' unchecked 
                    'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("True", True)) ' checked 
                    'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("", "INDETERMINATE")) ' indeterminate state 
 
 
                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 
                End If 
            Next 
            ColumnOrder(tablename, daten) 
            daten.HeadingStyle.WrapText = False 
        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