-- 作者:cxmxjwlmq
-- 发布时间:2019/7/23 18:14:00
-- 求助:怎样将图表数据绑定在报表的行上
各位老师:我想把图表的绑定在报表的各格率上和直行率上,但不知道怎么绑定!
如下图:
此主题相关图片如下:微信图片_20190723175511.png
合格率和直行率是变量,局部代码如下:
……
Dim cntxxzxl1 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny1 & "# And 日期1<= # " & jny1z & "#") Dim cntxxzxl2 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny2 & "# And 日期1<= # " & jny2z & "#") Dim cntxxzxl3 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny3 & "# And 日期1<= # " & jny3z & "#") Dim cntxxzxl4 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny4 & "# And 日期1<= # " & jny4z & "#") Dim cntxxzxl5 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny5 & "# And 日期1<= # " & jny5z & "#") Dim cntxxzxl6 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny6 & "# And 日期1<= # " & jny6z & "#") Dim cntxxzxl7 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny7 & "# And 日期1<= # " & jny7z & "#") Dim cntxxzxl8 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny8 & "# And 日期1<= # " & jny8z & "#") Dim cntxxzxl9 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny9 & "# And 日期1<= # " & jny9z & "#") Dim cntxxzxl10 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny10 & "# And 日期1<= # " & jny10z & "#") Dim cntxxzxl11 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny11 & "# And 日期1<= # " & jny11z & "#") Dim cntxxzxl12 As Integer = DataTables("制造质量管理").Compute("Count([日期1])", "判定 = \'合格\' And 不良描述 Is null And 直行辅助 = \'总检\' And 直行 = \'非直行\' And 日期1>= # " & jny12 & "# And 日期1<= # " & jny12z & "#") If cntxxzxl1 = "0" Then Sheet(6,3 ).Value = " " Else Sheet(6,3 ).Value = cntxxzxl1/cntxx1 If cntxxzxl2 = "0" Then Sheet(6,4 ).Value = " " Else Sheet(6,4 ).Value = cntxxzxl2/cntxx2 If cntxxzxl3 = "0" Then Sheet(6,5 ).Value = " " Else Sheet(6,5 ).Value = cntxxzxl3/cntxx3 If cntxxzxl4 = "0" Then Sheet(6,6 ).Value = " " Else Sheet(6,6 ).Value = cntxxzxl4/cntxx4 If cntxxzxl5 = "0" Then Sheet(6,7 ).Value = " " Else Sheet(6,7 ).Value = cntxxzxl5/cntxx5 If cntxxzxl6 = "0" Then Sheet(6,8 ).Value = " " Else Sheet(6,8 ).Value = cntxxzxl6/cntxx6 If cntxxzxl7 = "0" Then Sheet(6,9 ).Value = " " Else Sheet(6,9 ).Value = cntxxzxl7/cntxx7 If cntxxzxl8 = "0" Then Sheet(6,10).Value = " " Else Sheet(6,10).Value = cntxxzxl8/cntxx8 If cntxxzxl9 = "0" Then Sheet(6,11).Value = " " Else Sheet(6,11).Value = cntxxzxl9/cntxx9 If cntxxzxl10 = "0" Then Sheet(6,12).Value = " " Else Sheet(6,12).Value = cntxxzxl10/cntxx10 If cntxxzxl11 = "0" Then Sheet(6,13).Value = " " Else Sheet(6,13).Value = cntxxzxl11/cntxx11 If cntxxzxl12 = "0" Then Sheet(6,14).Value = " " Else Sheet(6,14).Value = cntxxzxl12/cntxx12 Sheet(6,15).Value = (cntxxzxl1+cntxxzxl2+cntxxzxl3+cntxxzxl4+cntxxzxl5+cntxxzxl6+cntxxzxl7+cntxxzxl8+cntxxzxl9+cntxxzxl10+cntxxzxl11+cntxxzxl12)/(cntxx1+cntxx2+cntxx3+cntxx4+cntxx5+cntxx6+cntxx7+cntxx8+cntxx9+cntxx10+cntxx11+cntxx12)
Dim t As Table = Tables("统计表") \'这是帮助里的,需要删除,将t怎样替换? Dim s As XLS.Sheet = Book.Sheets("部门下线入库合格率统计") For c As Integer = 3 To t.Cols.Count -1 \'添加列标题 s(3, c+4).Value = t.Cols(c+4).Name Next For r As Integer = 3 To t.Rows.Count - 1 \'填入数据 For c As Integer = 3 To t.Cols.Count -1 s(r +4, c+4).Value = t.rows(r+4)(c+4) Next Next
\'生成图表 Dim Chart As New ChartBuilder \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart.DataSource = "统计表" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.X.DataField = "月份" \'X轴绑定到产品列 Series.Y.DataField = "状态" \'Y轴绑定到数量列 Chart.PrintWidth = 120 Chart.PrintHeight = 60 s(t.rows.Count + 6,5).Value = New XLS.Picture(Chart.Image)
请老师指点一下! 谢谢老师!
[此贴子已经被作者于2019/7/23 18:15:59编辑过]
|