Dim ds As New SQLDBDataSet() Dim cnx As New SqlConnection cnx.Open() Dim ta As New SQLDBDataSetTableAdapters.Function1TableAdapter ta.Fill(ds.Function1, Me.DateValue.Value.ToString("dd/mm/yyyy"))
Dim ChartArea1 As ChartArea = New ChartArea() Dim Series1 As New Series Dim Chart1 = New Chart() Me.Controls.Add(Chart1) ChartArea1.Name = "ChartArea1" Chart1.ChartAreas.Add(ChartArea1) Chart1.Location = New System.Drawing.Point(13, 13) Chart1.Name = "Chart1" Series1.ChartArea = "ChartArea1" Series1.Name = "Series1" Series1.ChartType = SeriesChartType.RangeBar Chart1.Series.Add(Series1) Chart1.Size = New System.Drawing.Size(600, 400) Chart1.TabIndex = 0 Chart1.Text = "Rapport Engin" Chart1.Series("Series1").XValueMember = "CodeEngin" Chart1.Series("Series1").YValueMembers = "HeureDebut, HeureFin" Chart1.DataSource = ds.Tables("Function1")
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)