Thank you for your reply and help, I take values directly from textbox.text so i treid this way :
Dim dt As DataTable = New DataTable()
dt.Columns.AddRange(New DataColumn(1) {New DataColumn("ShipCity"), New DataColumn("Total", GetType(Integer))})
dt.Rows.Add("Al", Convert.ToDecimal(TextBox1.Text.Trim().Replace(".", ",").Replace("€", "")))
dt.Rows.Add("En", Convert.ToDecimal(TextBox2.Text.Trim().Replace(".", ",").Replace("€", "")))
dt.Rows.Add("Els", Convert.ToDecimal(TextBox3.Text.Trim().Replace(".", ",").Replace("€", "")))
dt.Rows.Add("Sao Paulo", 31)
Dim x As String() = (From p In dt.AsEnumerable()
Order By p.Field(Of String)("ShipCity")
Select p.Field(Of String)("ShipCity")).ToArray()
Dim y As Integer() = (From p In dt.AsEnumerable()
Order By p.Field(Of String)("ShipCity")
Select p.Field(Of Integer)("Total")).ToArray()
Chart2.Series(0).IsVisibleInLegend = False
Chart2.Series(0).ChartType = SeriesChartType.Column
Chart2.Series(0).IsValueShownAsLabel = True
Chart2.Series(0).Points.DataBindXY(x, y)
Chart2.ChartAreas("ChartArea1").AxisY.Crossing = 0
Chart2.ChartAreas("ChartArea1").AxisX.Crossing = 0
For Each point As DataPoint In Chart1.Series(0).Points
If point.YValues(0) >= 0 Then
point.Color = Color.Green
Else
point.Color = Color.Red
End If
Next
THank you
