Solved

Why my DatagridStyle is not working

Posted on 2004-04-21
3
222 Views
Last Modified: 2010-04-24
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
Comment
Question by:MuthuAnnamalai
3 Comments
 

Accepted Solution

by:
fatihdurgut earned 50 total points
ID: 10888768
hi MuthuAnnamalai
it seems that you forgot to assign mappingname of  table style
ts.MappingName = "DefaultPriceLevel"
try this

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: jpaulino
XML Literals are a great way to handle XML files and the community doesn’t use it as much as it should.  An XML Literal is like a String (http://msdn.microsoft.com/en-us/library/system.string.aspx) Literal, only instead of starting and ending with w…
I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

30 Experts available now in Live!

Get 1:1 Help Now