or
<telerik:RadChart ID="chr_kgs" runat="server" Skin="DeepBlue" Visible="true" ChartImageFormat="Jpeg"> <PlotArea Appearance-FillStyle-MainColor="#003366" XAxis-Appearance-LabelAppearance-FillStyle-FillSettings-ImageDrawMode="Align" Appearance-FillStyle-FillType="Gradient" Appearance-FillStyle-FillSettings-GradientMode="Vertical" Appearance-FillStyle-FillSettings-HatchStyle="BackwardDiagonal" Appearance-FillStyle-SecondColor="#003366" YAxis2-Appearance-MinorGridLines-Visible="True" YAxis2-Appearance-MinorTick-Visible="False" YAxis-Appearance-MinorGridLines-Visible="False" YAxis-Appearance-MinorGridLines-HideWithAxis="True" YAxis-Appearance-MajorTick-Width="1" XAxis-Appearance-MajorGridLines-HideWithAxis="True" XAxis-Appearance-MajorGridLines-Visible="False" XAxis-Appearance-MinorGridLines-Visible="False" XAxis-Appearance-MajorGridLines-Width="0" XAxis-Appearance-MajorTick-Width="1" XAxis-Appearance-MajorGridLines-Color="#003366" XAxis-Appearance-MajorTick-Color="#003366" XAxis-Appearance-MinorGridLines-Color="#003366" XAxis-Appearance-MinorTick-Color="#003366" YAxis-Appearance-MinorGridLines-Color="#003366"> </PlotArea> <Appearance BarWidthPercent="10" Dimensions-AutoSize = false ></Appearance> </telerik:RadChart>
Protected Sub RadGridInvoiceSubcontracts_ItemDataBound(ByVal sender As Object, ByVal e As Telerik.Web.UI.GridItemEventArgs) Handles RadGridInvoiceSubcontracts.ItemDataBound If TypeOf (e.Item) Is GridHeaderItem Then Using taArea As New InvoiceAreasTableAdapters.AreasTableAdapter Using tArea As InvoiceAreas.AreasDataTable = taArea.GetData For Each rArea As InvoiceAreas.AreasRow In tArea Dim header As GridHeaderItem = DirectCast(e.Item, GridHeaderItem) header("Area" & rArea.AreaID).Text = rArea.AreaName header.EnableViewState = True Next End Using End Using End If End Sub