Ne znam za to iz designera,ali to sto trazis mozes napraviti uz malo koda.
Evo ti primjer iz jednog mog test projekta:



Dakle,kod definise polja koja ce se pojaviti u gridu,boje,headere i ostalo.Na kraju to dodaje u kolekciju stilova.
Nadam se da ti moze biti od neke pomoci!

Hvala, nisam mislio rucno to da radim ali ok, posluzice i ovako!

Ne moraš uopšte da radiš kroz kod, samo stavi da ti vrednost MappingName svojstva TableStyle-a bude ista kao i ime tabele u DataSet-u koju prikazuješ u gridu

Hvala, to mi je trebalo
Pozdrav

Moze i ovo tvoje prvo resenje, samo moras da das ime tablestyle-u.
I odmah ce da proradi.

:)

Svako resenje koje radi je dobro, ali ne kodira mi se vise nego sto je potrebno, pa cu se drzati Designera...:)
Hvala jos jednom i pozdrav!

Public Class columnProperties
Private _ColumnName As String
Private _HeaderText As String
Private _Width As String
Private _DataAligment As String


Sub New(ByVal CName As String, ByVal CText As String, ByVal CWidth As String, ByVal CDAligment As String)
_ColumnName = CName
_HeaderText = CText
_Width = CWidth
_DataAligment = CDAligment
End Sub

Public ReadOnly Property ColumnName() As String
Get
Return _ColumnName
End Get
End Property

Public ReadOnly Property HeaderText() As String
Get
Return _HeaderText
End Get
End Property

Public ReadOnly Property Width() As String
Get
Return _Width
End Get
End Property

Public ReadOnly Property DataAligment() As String
Get
Return _DataAligment
End Get
End Property
End Class


rAOCP je ArrayList tipa columnProperties .....


Private Function returnTableStyles(ByVal rAOCP As ArrayList, ByVal DS As DataSet) As DataGridTableStyle
Dim ts As New DataGridTableStyle
Dim i As Integer

ts.MappingName = DS.Tables(0).TableName

For i = 0 To rAOCP.Count - 1

Dim CS As New HeaderAndDataAlignColumn
CS.Alignment = HorizontalAlignment.Center
CS.MappingName = DirectCast(rAOCP(i), columnProperties).ColumnName()
CS.HeaderText = DirectCast(rAOCP(i), columnProperties).HeaderText()

If DirectCast(rAOCP(i), columnProperties).Width() = "0" Then
CS.DataAlignment = HorizontalAlignment.Left
End If
If DirectCast(rAOCP(i), columnProperties).Width() = "1" Then
CS.DataAlignment = HorizontalAlignment.Center
End If
If DirectCast(rAOCP(i), columnProperties).Width() = "2" Then
CS.DataAlignment = HorizontalAlignment.Right
End If

CS.Width = CInt(DirectCast(rAOCP(i), columnProperties).Width())

ts.GridColumnStyles.Add(CS)
Next

ts.RowHeadersVisible = False
ts.HeaderForeColor = Color.Black
ts.HeaderFont = New Font("Verdana", 11, FontStyle.Bold, GraphicsUnit.Pixel)

Return ts
End Function


Probaj na ovaj nacin, ovo je prilagodjen primer aplikaciji na kojoj radim ali funkcionise i bez ArrayLista ....

Private Function returnTableStyles(ByVal DS As DataSet) As DataGridTableStyle
Dim ts As New DataGridTableStyle
Dim i As Integer

ts.MappingName = DS.Tables(0).TableName

For i = 0 To DS.Tables(0).Columns.Count - 1

Dim CS As New HeaderAndDataAlignColumn
CS.Alignment = HorizontalAlignment.Center
CS.MappingName = DS.Tables(0).Columns(i).ColumnName
CS.HeaderText = DS.Tables(0).Columns(i).ColumnName
CS.DataAlignment = HorizontalAlignment.Center
CS.Width = 100

ts.GridColumnStyles.Add(CS)
Next

ts.RowHeadersVisible = False
ts.HeaderForeColor = Color.Black
ts.HeaderFont = New Font("Verdana", 11, FontStyle.Bold, GraphicsUnit.Pixel)

Return ts
End Function

.
.
.

DataGrid1.TableStyles.Add(returnTableStyles(DataSet11))

Mislim da ti ovo moze pomoci ......

E nisam video dosada da je jos neko odgovorio....hvala svakako ali mislim da je to previse gimnastike (koda)!
Zanimalo me je kako kad u dizajneru da napravim grid da njega i prikazem a ne default....hvala svakako!
Pozdrav