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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双图表

共有2449人关注过本帖树形打印复制链接主题：双图表

yetle

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

双图表

Post By：2018/7/7 14:41:00 [只看该作者]

表1有数据列：班组和数量

表2有数据列：班组和计划产量

现需要将表2的几乎产量和实际的数量并排在chart1显示，下面代码怎么改？

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

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

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

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

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

Chart.DataSource = "表1" '设置绑定表

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

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

Series.Text = "数量"

Series.X.DataField = "班组" 'X轴绑定到产品列

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

' Series = Chart.SeriesList.Add() '增加第二个图系

' Series.Text = "金额"

' Series.X.DataField = "产品" 'X轴绑定到产品列

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

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/7 15:32:00 [只看该作者]

1、把2个表的数据合并到一个查询表，然后绑定查询表

2、不要绑定表，直接使用代码赋值

http://www.foxtable.com/webhelp/scr/0967.htm

yetle

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

Post By：2018/7/7 16:27:00 [只看该作者]

Tables("日产量分析_Table3").Fill("Select [A.班组],[A.数量],[B.计划产量] F rom {日产量分析_table2} A left join {班组月计划产量} B on [A.班组]=[B.班组] where [B.年]=year(Date.Today) and [B.月]=Month(Date.Today) order by [A.班组]",True)

这个语法是不是错的，有报错：提示请检查语法或数据源

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/7 16:40:00 [只看该作者]

where [B.年]=year(Date()) and [B.月]=Month(Date())

http://www.foxtable.com/webhelp/scr/0692.htm

yetle

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00

Post By：2018/7/7 17:37:00 [只看该作者]

不是这里的原因，改了报错依旧，更何况我上面这么写都可以的

e.Form.Controls("TextBox1").text=year(Date.Today)

e.Form.Controls("TextBox2").text=Month(Date.Today)

Dim tB As Table = Tables("日产量分析_table2")

If Forms("日产量分析").Opened()

tB.Fill(" select A.MakeGro as 班组, Sum( isnull(C.Qty,0)) as 数量 f rom PQ_Convert_Main d left join PQ_Convert_List C ON d.ID=C.UpID left join PQ_Main A on c.Orderno=a.OrderNo left join bai_ftyno E ON a.ftyno=e.ftyno where ArtGD='车间转QC' and DATEPART(year,d.Workdate)=(select year(GETDATE())) and DATEPART(month,d.Workdate)=(select MONTH(GETDATE()) ) and A.MakeGro is not null group by A.MakeGro order by A.MakeGro " , "鼎邦系统",True)

End If