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


  共有2570人关注过本帖树形打印复制链接

主题:图表

帅哥哟,离线,有人找我吗?
cqlistone
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:58 积分:713 威望:0 精华:0 注册:2015/5/11 20:47:00
图表  发帖心情 Post By:2015/9/3 13:02:00 [只看该作者]

你好,为什么有空行就生成不了图显示“未将对象引用设置到对象的实例”
Dim Chart As WinForm.Chart 
Dim Series As WinForm.ChartSeries 
Dim tbl As DataTable = DataTables("停机处置") 
Dim lst As List(Of String) = tbl.GetValues("机器号") 
Chart = e.Form.Controls("Chart1") 
Chart.ChartType = ChartTypeEnum.Bar 
Chart.SeriesList.Clear() 
Series = Chart.SeriesList.Add() 
Series.Length = lst.Count 
For i As Integer = 0 To lst.Count - 1 
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = tbl.Compute("Avg(处置停机总耗时M)","[机器号] = '" & lst(i) & "'") 
    Chart.AxisX.SetValueLabel(i, lst(i)) 
Next

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/4 9:43:00 [只看该作者]

Dim Chart As WinForm.Chart 
Dim Series As WinForm.ChartSeries 
Dim tbl As DataTable = DataTables("停机处置") 
Dim lst As List(Of String) = tbl.GetValues("机器号", "机器号 is not null") 
Chart = e.Form.Controls("Chart1") 
Chart.ChartType = ChartTypeEnum.Bar 
Chart.SeriesList.Clear() 
Series = Chart.SeriesList.Add() 
Series.Length = lst.Count 
For i As Integer = 0 To lst.Count - 1 
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = tbl.Compute("Avg(处置停机总耗时M)","[机器号] = '" & lst(i) & "'") 
    Chart.AxisX.SetValueLabel(i, lst(i)) 
Next

 回到顶部