专家坐堂-【求助】如何用sql直接生成图表！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'用SQL语句生成临时表

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "S elect * From [KB_今日计划明细] where 工序编号= \'2--04\' And DateDiff(dd,工序计划结束期,getdate()) < 8 "

dt = cmd.ExecuteReader()

\'对临时进行分组统计

Dim b As New CrossTableBuilder("周任务趋势图",dt)

b.HGroups.AddDef("工序计划结束期")

\'b.VGroups.AddDef("日期","{0}月")

b.Totals.AddDef("数量")

b.HorizontalTotal = True

b.VerticalTotal = True

b.Subtotal = True \'生成汇总模式

b.Build() \'生成统计表

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

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

Dim t As Table =Tables("周任务趋势图")\'定义一个变量t引用数据表

\'Dim t As Table = Tables("周任务趋势图")\'定义一个变量t引用数据表

\'Chart= Forms("窗口1").Controls("Chart1")\' 引用窗口中的图表

Chart=e.Form.Controls("Chart1")

Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)

\'Chart.DataSource ="周任务趋势图统计" \'设置绑定表

Chart.SeriesList.Clear() \'清除图表原来的图系

Chart.AxisY.Major = 5 \'主刻度间隔值为5000

Series = Chart.SeriesList.Add() \'增加一个图系

Series.X.DataField ="工序计划结束期" \'X轴绑定到产品列

Series.Y.DataField ="数量" \'Y轴绑定到数量列

Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮

Chart.LegendVisible = True \'显示图列

Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)

或者 "S elect 工序计划结束期,sum(数量) From [KB_今日计划明细] where 工序编号= \'2--04\' And DateDiff(dd,工序计划结束期,getdate()) < 8 group by 工序计划结束期"