Me.OrdersDataGridView1.DataSource = Me.OrdersBindingSource
        Dim dt As DataTable = CType(Me.OrdersBindingSource.List, DataView).Table
        Dim ci As Integer
        For ci = 0 To Me.OrdersDataGridView1.Columns.Count - 1
            Dim dgvc As DataGridViewColumn = Me.OrdersDataGridView1.Columns(ci)
            If dt.Columns(ci).DataType Is GetType(DateTime) Then
                Dim odgvc As DataGridViewColumn = _
                  Me.OrdersDataGridView1.Columns(ci)
                Me.OrdersDataGridView1.Columns.RemoveAt(ci)
                Dim ndgvc As New CalendarColumn
                ndgvc.DisplayIndex = odgvc.DisplayIndex
                ndgvc.DataPropertyName = odgvc.DataPropertyName
                ndgvc.HeaderText = odgvc.HeaderText
                Me.OrdersDataGridView1.Columns.Insert(ci, ndgvc)
            End If
        Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist