1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Table_LHH("Select sum(coin) as NewCoin , trim(format(IDate,'yyyy/MM/dd')) as NewDate from Spend Group by IDate")
Chart1.Series.Clear()
Chart1.Legends.Clear()
Chart1.Legends.Add("Type")
Chart1.Series.Add("Fecha")
Chart1.Series("Fecha").IsVisibleInLegend = False
Chart1.Series("Fecha").IsValueShownAsLabel = True
Chart1.Series(str).Label = "#PERCENT{P2}" '趴數 '"#VALY" + "%" 'Y值 '"#VALX" + "%" 'X值
Chart1.Series(str).LegendText = "#VALX"
Chart1.Series("Fecha").LabelBackColor = Color.White
Chart1.Series("Fecha").LabelForeColor = Color.Blue
Chart1.Series("Fecha").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.DataSource = ds 'DataTable
Chart1.Series("Fecha").XValueMember = "NewDate"
Chart1.Series("Fecha").YValueMembers = "NewCoin"
Chart1.DataBind()
End Sub
|
沒有留言:
張貼留言