[es] - Datagrid tablestyle kako ....

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.yunord.net.

Sajt: www.linkedin.com/in/aleks..

Profil

Datagrid tablestyle kako ....

^{21.09.2005. u 13:35 - pre 226 meseci}

Kada u designeru napravim novi datagrid i podesim njegov tablestyle kako ja hocu, znaci, sirina kolona, naslovi iznad kolona... i kada zatim povezem datagrid.datasource sa nekim netipsikim data setom on mi i dalje prikazuje default datagrid, ne onako kako sam ga ja napravio?
Kako ga naterati da prikazuje novi, zeljeni grid?
Koristim vs2003 & C#
Hvala

RTFM

Odgovor na temu

Gogy

Član broj: 14618
Poruke: 35
*.cmu.carnet.hr.

Profil

Re: Datagrid tablestyle kako ....

^{21.09.2005. u 14:40 - pre 226 meseci}

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

Code:

    Public Sub CreateGridStyle()
        Dim x As New DataGridTableStyle
        x.AllowSorting = True
        x.MappingName = "Instalacije"

        Dim y As New DataGridTextBoxColumn

        y.MappingName = "ID"
        y.HeaderText = "ID"
        x.GridColumnStyles.Add(y)

        y = New DataGridTextBoxColumn

        y.MappingName = "Datum"
        y.HeaderText = y.MappingName
        x.GridColumnStyles.Add(y)

        y = New DataGridTextBoxColumn
        y.MappingName = "Naziv firme"
        y.HeaderText = "Naziv firme"
        y.Alignment = HorizontalAlignment.Center
        y.Width = 200

        x.GridColumnStyles.Add(y)

        y = New DataGridTextBoxColumn
        y.MappingName = "Grad"
        y.HeaderText = "Grad"
        y.Alignment = HorizontalAlignment.Center
        x.GridColumnStyles.Add(y)

        y = New DataGridTextBoxColumn
        y.MappingName = "OS"
        y.HeaderText = "OS"
        y.Alignment = HorizontalAlignment.Center
        x.GridColumnStyles.Add(y)

        y = New DataGridTextBoxColumn
        y.MappingName = "Telefon1"
        y.HeaderText = "Telefon"
        y.Alignment = HorizontalAlignment.Center
        x.GridColumnStyles.Add(y)

        y = New DataGridTextBoxColumn
        y.MappingName = "Kontakt osoba"
        y.HeaderText = "Kontakt osoba"
        y.Alignment = HorizontalAlignment.Center
        x.GridColumnStyles.Add(y)

        x.BackColor = Color.Snow

        x.HeaderBackColor = Color.Purple
        x.HeaderForeColor = Color.White
        x.HeaderFont = New Font("Arial", 10, FontStyle.Bold, GraphicsUnit.Pixel)

        x.ForeColor = Color.OrangeRed

        GridInst.TableStyles.Add(x)

    End Sub

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!

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.yufestcaffe.com.

Sajt: www.linkedin.com/in/aleks..

Profil

Re: Datagrid tablestyle kako ....

^{21.09.2005. u 19:19 - pre 226 meseci}

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

RTFM

Odgovor na temu

dusans
Stojanov Dušan
Pančevo

Član broj: 9551
Poruke: 1343
*.3dnet.co.yu.

+311 Profil

Re: Datagrid tablestyle kako ....

^{21.09.2005. u 19:49 - pre 226 meseci}

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

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.yunord.net.

Sajt: www.linkedin.com/in/aleks..

Profil

Re: Datagrid tablestyle kako ....

^{22.09.2005. u 11:38 - pre 226 meseci}

Hvala, to mi je trebalo
Pozdrav

RTFM

Odgovor na temu

majstor01
Majstor 01
Nis

Član broj: 68717
Poruke: 12
*.my-its.net.

Profil

Re: Datagrid tablestyle kako ....

^{22.09.2005. u 23:10 - pre 226 meseci}

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

:)

Odgovor na temu

aleksandarpopov
IT consultant
Senta

Član broj: 57172
Poruke: 484
*.yunord.net.

Sajt: www.linkedin.com/in/aleks..

Profil

Re: Datagrid tablestyle kako ....

^{23.09.2005. u 11:58 - pre 226 meseci}

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!

RTFM

Odgovor na temu

serbianmorpheus
Nenad Pavlovic
.Net Developer
Beograd

Član broj: 6872
Poruke: 13
*.yubc.net.

ICQ: 36724223

Profil

Re: Datagrid tablestyle kako ....

^{06.10.2005. u 00:21 - pre 225 meseci}

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 ......

Odgovor na temu