Dim Chart As WinForm.Chart
Dim Series As WinForm.ChartSeries
Dim t As Table = Tables("历史数据")
Dim n As Integer = t.Compute("Max(序号)") - 120
t.filter = "[序号] > '" & n & "'"
Chart= Forms("K线图").Controls("Chart1")
Chart.ChartType = ChartTypeEnum.Candle
Chart.AxisY.Text = "价格"
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.LineColor = Color.Blue
'Series.LineColor = Color.Red
'Series.MarkSize = 3
Series.Length = t.Rows.Count
For i As Integer = 0 To t.Rows.Count - 1
Series.X(i) = i
Series.Y(i) = t.Rows(i)("最高")
Series.Y1(i) = t.Rows(i)("最低")
Series.Y2(i) = t.Rows(i)("开盘")
Series.Y3(i) = t.Rows(i)("收盘")
Next
我想将同一坐标系的[收盘]>=[开盘]设置为红色，[收盘]<[开盘]设置为蓝色；即空心蜡烛图为红色，实心蜡烛图为蓝色；能实现码？
加好友 
发短信
Post By：2016/4/28 10:53:00 [显示全部帖子]
