老师,如果要将获得的统计表用图表显示出来,代码要怎么写?
msgbox(2) --> msgbox(3)错误:未将对象引用设置到对象的实例。
'Dim Chart As WinForm.Chart '定义一个图表变量
Dim Chart As New ChartBuilder
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表
'Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
'Chart.SeriesList.Clear() '清除图表原来的图系
Chart.PrintWidth = 140
Chart.PrintHeight = 100
Chart.VisualEffect = True
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
Msgbox(1)
For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
Msgbox(2)
Series.X(i) = t.Rows(i)("姓名") '指定水平坐标
Series.Y(i) = t.Rows(i)("打卡次数") '指定垂直坐标
Msgbox(3)
Next
Msgbox(4)
wb.AddPageTitle("","ph1","FoxUI")
Msgbox(5)
wb.InsertHTML("<img width='100%' src='" & wb.ImageToBase64(Chart.Image) & "'/>")
此主题相关图片如下:222.jpg