Zitat:

Sehr toll, ich hoffe Fighter kommt dann gut damit zurecht...

#Region " Grid Styles berechnen "
    Function LoadGridStyles(ByVal _dt As DataTable)
        Dim dgbc As DataGridBoolColumn
        Dim dgtxt As DataGridTextBoxColumn
 
        Dim dgts As DataGridTableStyle = New DataGridTableStyle()
 
        dgts.MappingName = _dt.TableName.ToString
 
        Dim count As Integer = _dt.Columns.Count
        Dim rows As Integer = _dt.Rows.Count()
        'MsgBox(count)
        Dim c As Integer = 0
        Dim r As Integer = 0
        Dim längeMax As Integer
 
        Do While Not c = count
            Do While Not r = rows
                Dim länge As Integer
                If Not DG1.Item(r, c) Is System.DBNull.Value Then
                    Dim Inhalt As String = DG1.Item(r, c)
                    länge = Len(Inhalt.ToString)
                    If länge > längeMax Then
                        längeMax = länge
                    End If
                    r = r + 1
                Else
                    r = rows
                End If
            Loop
 
            r = 0
 
            If _dt.Columns(c).ColumnName = "Merker" Then
                dgbc = New DataGridBoolColumn()
                dgbc.MappingName = _dt.Columns(c).ToString
                dgbc.HeaderText = _dt.Columns(c).ColumnName
                dgbc.Width = 40
                längeMax = 0
                dgts.GridColumnStyles.Add(dgbc)
            Else
                dgtxt = New DataGridTextBoxColumn()
                dgtxt.MappingName = _dt.Columns(c).ToString
                dgtxt.HeaderText = _dt.Columns(c).ColumnName
                längeMax = längeMax * 6 ' size.Width  ' Wert für die _
                  Schriftbreite in Pixel
                If längeMax <= 40 And Not _dt.Columns(c).ColumnName = "id" Then _
                längeMax = 40
                If _dt.Columns(c).ColumnName = "id" Then längeMax = 30
                If längeMax >= 250 Then längeMax = 250
                dgtxt.Width = längeMax
                längeMax = 0
                dgts.GridColumnStyles.Add(dgtxt)
            End If
 
            c = c + 1
        Loop
 
        c = 0
        Me.DG1.TableStyles.Add(dgts)
    End Function
#End Region

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP