Dim dt As DataTable = Me.NWINDDataSet.Orders
        Me.OrdersTableAdapter.Fill(dt)
 
        For Each c As DataGridViewColumn In Me.OrdersDataGridView.Columns
            tc = dt.Columns(c.Index)
            If tc.Caption <> String.Empty Then
                c.HeaderText = tc.Caption
            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