1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
|
Private Sub Form10_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10, sql11 As String
'sql3 = "SELECT * FROM Req2"
'sql4 = "SELECT * FROM Req3"
'Dim adapter3 As New OleDbDataAdapter(sql3, con1)
'Dim adapter4 As New OleDbDataAdapter(sql4, con1)
'Dim dt3 As New DataTable("Req2")
'Dim dt4 As New DataTable("Req3")
'adapter3.Fill(dt3)
'adapter4.Fill(dt4)
'**********' création manuelle de la table dt3 ****************
Dim dt3 As New DataTable
dt3.Columns.Add("ANNEE")
dt3.Columns.Add("BTA")
dt3.Columns.Add("OTA")
dt3.Rows.Add(2011, 51560)
dt3.Rows.Add(2012, 119400)
dt3.Rows.Add(2013, 301000, 49011)
dt3.Rows.Add(2014, 257400, 47056)
dt3.Rows.Add(2015, 430100, 156760)
dt3.Rows.Add(2016, 796765, 194657)
dt3.Rows.Add(2017, 843941, 34800)
dt3.Rows.Add(2018, 1538097, 110731)
dt3.Rows.Add(2019, 1577678, 344345.1)
'**********' FIN de la création manuelle de la table dt3 ****************
' Réglage du Chart1
Chart1.Series.RemoveAt(0) 'Enlever le Serie1 mis par défaut
Chart1.Series.Add("BTA")
Chart1.Series.Add("OTA")
Chart1.Series("BTA").XValueMember = "ANNEE"
Chart1.Series("BTA").YValueMembers = "BTA"
Chart1.Series("OTA").XValueMember = "ANNEE"
Chart1.Series("OTA").YValueMembers = "OTA"
Chart1.DataSource = dt3
' Chart2.DataSource = dt4 ' pas besoin de ce DataSource, Chart2 n'existe pas
End Sub |
Partager