1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
While i < 5
Dim adpt1 As New SqlDataAdapter("select sum (FMNTHT) FROM gest1 .dbo.CFACTS WHERE day (FDATOP)= " & Me.i & " and month (FDATOP)=1 ", con)
adpt1.Fill(dst1, "T")
MsgBox(dst1.Tables("T").Rows(0).Item(0))
i = i + 1
dst1.Tables("T").Rows(0).Item(0).Equals(0)
Dim yValue As Double
yValue = dst1.Tables("T").Rows(0).Item(0)
Dim x As Double = Me.i
Chart1.Series(0).Points.AddXY(x, yValue)
' Positionner le controle Chart
Chart1.Location = New System.Drawing.Point(50, 300)
' Dimensionner le Chart
Chart1.Size = New System.Drawing.Size(700, 400)
' Ajouter le chart à la form
Me.Controls.Add(Chart1)
' fast(line)
End While |
Partager