各位老师:我想把图表的绑定在报表的各格率上和直行率上,但不知道怎么绑定!
如下图:
此主题相关图片如下:微信图片_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编辑过]