or



linePrice = new DataTable();linePrice.Columns.Add("Price", typeof(float));linePrice.Columns.Add("Date", typeof(DateTime));LineSeries lineSeria = new LineSeries();
radChartView1.Series.Add(lineSeria);
lineSeria.ShowLabels = true;lineSeria.LabelFormat = "{0:C}";lineSeria.ValueMember = "Price";lineSeria.CategoryMember = "Date";lineSeria.DataSource = linePrice;DateTimeCategoricalAxis categoricalAxis = new DateTimeCategoricalAxis();categoricalAxis.DateTimeComponent = DateTimeComponent.Day;categoricalAxis.MajorTickInterval = 1;categoricalAxis.PlotMode = AxisPlotMode.BetweenTicks;categoricalAxis.LabelFormat = "{0:dd}.{0:MM}.{0:yyyy}";lineSeria.HorizontalAxis = categoricalAxis;


Private Function GetDummyList() As BindingList(Of RateShockData) Dim l As New BindingList(Of RateShockData) l.Add(New RateShockData("+300", "-13.9")) l.Add(New RateShockData("+200", "-9")) l.Add(New RateShockData("+100", "-3.9")) l.Add(New RateShockData("even", "0")) l.Add(New RateShockData("-100", "-.2")) l.Add(New RateShockData("-200", "1")) l.Add(New RateShockData("-300", "2.2")) Return l End Function Private Function BuildChart() Dim c1 As New RadChartView Dim bs As New BarSeries bs.Name = "Market % Change" bs.ValueMember = "MVPctChange" bs.CategoryMember = "BPChange" bs.DataSource = GetDummyList() c1.Series.Clear() c1.Series.Add(bs) Dim bitM As New Bitmap(c1.Width, c1.Height) c1.DrawToBitmap(bitM, c1.Bounds) Dim imageFileName As String = Guid.NewGuid.ToString + ".jpg" bitM.Save(imageFileName, Drawing.Imaging.ImageFormat.Jpeg) End Function Private Sub RadButton2_Click(sender As Object, e As EventArgs) Handles RadButton2.Click BuildChart() End SubPublic Class RateShockData Property BPChange As String Property MVPctChange As String Public Sub New(bpc As String, mvpc As String) BPChange = bpc MVPctChange = mvpc End SubEnd Classc1.Area.View.Palette = KnownPalette.GrayscalePrivate Sub FrmKundenliste_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim objconn As New SqlConnection(My.Settings.SQL_V4) Dim rs As New SqlCommand("", objconn) Dim dr As DbDataReader rs.CommandText = "Select * from dbo.ApplicationMain" Try objconn.Open() dr = rs.ExecuteReader If dr.Read() Then RadGridView1.DataSource = dr Dim objconn_detail As New SqlConnection(My.Settings.SQL_V4) Dim rs_detail As New SqlCommand("", objconn_detail) Dim dr_detail As DbDataReader objconn_detail.Open() rs_detail.CommandText = "Select * from dbo.ApplicationDetail" dr_detail = rs_detail.ExecuteReader If dr_detail.Read() Then Dim template As New GridViewTemplate() template.DataSource = dr_detail RadGridView1.MasterTemplate.Templates.Add(template) Dim relation As New GridViewRelation(RadGridView1.MasterTemplate) relation.ChildTemplate = template relation.RelationName = "ApplicationDetails" relation.ParentColumnNames.Add("Id") relation.ChildColumnNames.Add("ApplicationId") RadGridView1.Relations.Add(relation) End If End If Catch ex As Exception End TryEnd Sub