[Visual Basic]
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 = "" _ 
) As Object

Parameter

daten

Erforderlich.

tablename

Erforderlich.

dt

Erforderlich.

Aktiv_Filter

Optional. Der Standardwert ist "".

Quellcode

[Visual Basic]
        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 = "") 
            Dim anzcols As Integer 
            Dim i As Integer 
            Dim t As New DataTable() 
            Dim s As String 
            anzcols = daten.Splits(0).DisplayColumns.Count 
            t = dt 
            Me.Tabelle = tablename 
            For i = 0 To daten.Columns.Count - 1 
                s = daten.Columns(i).DataField 
 
                Me.Feld = s 
                Me.getspalte() 
                If Me.spaltenname = "" Then 
                    daten.Splits(0).DisplayColumns(i).Width = 0 
                Else 
                    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" And Aktiv_Filter <> "" 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 = Aktiv_Filter 
                    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 
                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