老师,这是帮助文件中编制candle图的例子,但事实上,这是不可能的,因为是不可能每天连续交易的,如果用实际交易数据来做,会得出这样的图:
此主题相关图片如下:图_看图王.bmp
假定有一个表:
完整地图示该表的代码为:
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("stock") '定义一个变量t引用数据表
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Candle '设置图表类型
Chart.AxisX.DateType = True '明确指定X轴是日期型
Chart.AxisX.AnnoFormatString = "MM-dd" '制定日期表示格式
Chart.AxisY.Text = "价格"
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.LineColor = Color.Blue '设置该图系的颜色
Chart.DataSource = "Stock" '绑定设置
Series.X.DataField = "日期"
Series.Y.DataField = "最高价"
Series.Y1.DataField = "最低价"
Series.Y2.DataField = "开盘价"
Series.Y3.DataField = "收盘价"
'用第二个图表显示成交额
Chart.ChartType2 = ChartTypeEnum.Bar
Chart.SeriesList2.Clear()
Series = Chart.SeriesList2.Add()
Series.FillColor = Color.LightBlue '设置条形图的填充颜色
Series.X.DataField = "日期"
Series.Y.DataField = "成交额"
Chart.AxisY2.Text = "成交额"
Chart.AxisY2.GridMajorVisible = False '隐藏Y2轴的网格线
空出来的就是周六周日没有交易数据的,请问老师有办法去掉周六周日吗?