图表蜡烛图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

跟着帮助做股piao的分析图，用线来表示OK了，但是用蜡烛图却怎么都搞不成请甜大神指导

思路是:帮助里的蜡烛图源代码，在开始的时候设定一个FILTER，把自己需要的数据过滤出来，然后再把过滤出来的数据来作图

FILTER.....

WITH FILTER

.....

ENDWITH

结果是一片空白，请问大神怎样按条件来做出蜡烛图呢？

Tables("测试").Filter = "[股piao名称] = '贵州燃气'"

With Tables("测试").Filter

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("测试") '定义一个变量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 = "Tables('测试').Filter "

Series.X.DataField = "时间"

Series.Y.DataField = "最高"

Series.Y1.DataField = "最低"

Series.Y2.DataField = "开盘"

Series.Y3.DataField = "收盘"

End With

主题：图表 蜡烛图