Foxtable(狐表)用户栏目专家坐堂 → [求助]在编制candle图表时,如否去掉周六周日?


  共有2143人关注过本帖树形打印复制链接

主题:[求助]在编制candle图表时,如否去掉周六周日?

帅哥哟,离线,有人找我吗?
jeff69
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:77 积分:679 威望:0 精华:0 注册:2018/5/2 11:29:00
[求助]在编制candle图表时,如否去掉周六周日?  发帖心情 Post By:2018/11/6 16:20:00 [显示全部帖子]

老师,这是帮助文件中编制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轴的网格线


空出来的就是周六周日没有交易数据的,请问老师有办法去掉周六周日吗?


 回到顶部
帅哥哟,离线,有人找我吗?
jeff69
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:77 积分:679 威望:0 精华:0 注册:2018/5/2 11:29:00
  发帖心情 Post By:2018/11/7 10:18:00 [显示全部帖子]

老师,这是什么文件?开发版打不开啊

 回到顶部