Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 264
  • Last Modified:

Why my DatagridStyle is not working

I have given the code below, the datagridstyle which I am assigning to the datagrid is not working

 'Create Table
        Dim dt As New DataTable("DefaultPriceLevel")

        'Add Columns
        Dim dc As DataColumn
        dc = New DataColumn("PriceLevel", System.Type.GetType("System.String"))
        dt.Columns.Add(dc)
        dc = New DataColumn("MarkDownPercent", System.Type.GetType("System.String"))
        dt.Columns.Add(dc)
        dc = New DataColumn("Price", System.Type.GetType("System.String"))
        dt.Columns.Add(dc)

        'Add Rows
        Dim i% : For i = 0 To ds.Tables(3).Rows.Count - 1
            Dim dr As DataRow
            dr = dt.NewRow
            dr("PriceLevel") = ds.Tables(3).Rows(i)(0)
            dr("MarkDownPercent") = ds.Tables(3).Rows(i)(1)
            dr("Price") = ds.Tables(3).Rows(i)(2)
            dt.Rows.Add(dr)
        Next

        'Create Table Style
        Dim ts As New DataGridTableStyle()
        With ts
            .RowHeadersVisible = False
            .BackColor = Color.White
            .AlternatingBackColor = Color.White
            .HeaderBackColor = Color.LightSteelBlue
            .AllowSorting = False
            .HeaderBackColor = Color.FromArgb(115, 126, 183)
            .HeaderForeColor = Color.White
            .HeaderFont = New System.Drawing.Font("Arial", 9.0F, System.Drawing.FontStyle.Bold)
            .GridLineColor = Color.DarkGray
            .PreferredRowHeight = 22
        End With

        'Create Required Column Style (Department)
        Dim column1 As New DataGridTextBoxColumn()
        With column1
            .MappingName = "PriceLevel"
            .Width = 250
            .Alignment = HorizontalAlignment.Left
            .ReadOnly = False
        End With

        'Create Required Column Style (Active)
        Dim column2 As New DataGridTextBoxColumn()
        With column2
            .MappingName = "MarkDown"
            .Width = 100
            .Alignment = HorizontalAlignment.Center
            .ReadOnly = False
        End With

        'Create Required Column Style (Active)
        Dim column3 As New DataGridTextBoxColumn()
        With column3
            .MappingName = "Price"
            .Width = 100
            .Alignment = HorizontalAlignment.Center
            .ReadOnly = False
        End With

        'Add column styles to table style
        ts.GridColumnStyles.Add(column1)
        ts.GridColumnStyles.Add(column2)
        ts.GridColumnStyles.Add(column3)

        'Add tablestyle to Datagrid and customize
        With dgDefaultPriceLevel
            .TableStyles.Add(ts)
            .DataSource = dt
            .CaptionVisible = False
        End With


Any Help is highly appreciated

Regards,

Muthu Annamalai
0
MuthuAnnamalai
Asked:
MuthuAnnamalai
1 Solution
 
fatihdurgutCommented:
hi MuthuAnnamalai
it seems that you forgot to assign mappingname of  table style
ts.MappingName = "DefaultPriceLevel"
try this

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now