請教asp.net的chart圖表繪圖時,想將x軸座標以每月1日標註的方法,若x軸的座標是日期轉成字串的連續座標點(營業日才有資料)?或可自行設定是按每月第1日、每季第1日或是每年第1日在x軸顯示座標標籤,code如下,謝謝!
'Chart1.ChartAreas("ChartArea1").AxisX.LabelStyle.Interval = 10 '註解行,因不是每日都有,故不會都標註在每月1日
'Chart1.ChartAreas("ChartArea1").AxisX.Interval = 10 '註解行,因不是每日都有,故不會都標註在每月1日
Chart1.ChartAreas("ChartArea1").AxisX.Title = "DATE"
'Chart1.ChartAreas("ChartArea1").AxisY.LabelStyle.Interval = 10
Chart1.ChartAreas("ChartArea1").AxisY.Minimum = 25.0
Chart1.ChartAreas("ChartArea1").AxisY.Interval = 2.5
Chart1.ChartAreas("ChartArea1").AxisY.LabelStyle.Format = "{0:00.0}"
Chart1.ChartAreas("ChartArea1").AxisY.Title = "USD/barrel"
'
Chart1.Series.Add("Dated_Brent")
Chart1.Series("Dated_Brent").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("Dated_Brent").Color = Drawing.Color.Red
'Chart1.Series("Dated_Brent").MarkerStyle = DataVisualization.Charting.MarkerStyle.Square
Chart1.Legends.Add("Dated_Brent")
Chart1.Legends("Dated_Brent").Docking = DataVisualization.Charting.Docking.Bottom
Chart1.Legends("Dated_Brent").Alignment = Drawing.StringAlignment.Center
Chart1.Legends("Dated_Brent").BorderColor = Drawing.Color.Maroon
Chart1.Series("Dated_Brent").IsVisibleInLegend = True
'
Chart1.Series.Add("WTI_Cushing")
Chart1.Series("WTI_Cushing").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("WTI_Cushing").Color = Drawing.Color.Blue
'Chart1.Series("WTI_Cushing").MarkerStyle = DataVisualization.Charting.MarkerStyle.Circle
Chart1.Legends.Add("WTI_Cushing")
Chart1.Series("WTI_Cushing").IsVisibleInLegend = True
Dim Conn As SqlConnection = New SqlConnection
Dim settings As ConnectionStringSettings
settings = ConfigurationManager.ConnectionStrings("fbcnrCon")
Conn = New SqlConnection(settings.ConnectionString)
If Conn.State = 0 Then Conn.Open()
Dim cmd As New SqlCommand
Dim dr As SqlDataReader
cmd.Connection = Conn
cmd.CommandText = "SELECT Dated_Brent_date,Dated_Brent,WTI_Cushing FROM metal WHERE Dated_Brent_date>=DATEADD(year,-3, getdate()) ORDER BY Dated_Brent_date"
dr = cmd.ExecuteReader
While dr.Read
Chart1.Series("Dated_Brent").Points.AddXY(Format(dr("Dated_Brent_date"), "yyyy-MM-dd").ToString, dr(1).ToString)
Chart1.Series("WTI_Cushing").Points.AddXY(Format(dr("Dated_Brent_date"), "yyyy-MM-dd").ToString, dr(2).ToString)
End While
Chart1.Series("Dated_Brent").ToolTip = "Dated_Brent:(#VALX,#VALY)"
Chart1.Series("WTI_Cushing").ToolTip = "WTI_Cushing:(#VALX,#VALY)"
Conn.Close()
Conn.Dispose()