Foxtable(狐表)用户栏目专家坐堂 → 图表数据标识问题


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

主题:图表数据标识问题

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


加好友 发短信
等级:小狐 帖子:394 积分:6015 威望:0 精华:0 注册:2015/2/17 10:18:00
图表数据标识问题  发帖心情 Post By:2022/4/7 20:30:00 [只看该作者]




如图表中,标识的数据为0
要:在统计图表数据标识中,不为0的标识,为0的不标识
请教代码


 图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/7 20:33:00 [只看该作者]

请正确上传图片:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

并贴出代码说明问题

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


加好友 发短信
等级:小狐 帖子:394 积分:6015 威望:0 精华:0 注册:2015/2/17 10:18:00
  发帖心情 Post By:2022/4/7 20:57:00 [只看该作者]

基本情况统计表_tA  共三个字段  :年份   钢材消耗量     木材消耗量
有的年份 木材小消耗量为 0
请教: 按以下代码制成统计图表,两条曲线上均标上消耗数据,如何修改代码,使得数据为0的不在图表上标识。
谢谢!

 Dim ChartV As WinForm.Chart  
Dim SeriesV As WinForm.ChartSeries  
Dim tV As Table = Tables("基本情况统计表_tA") 
ChartV = e.Form.Controls("Chart13")  
ChartV.ChartType = ChartTypeEnum.XYPLOT'PIE  
ChartV.SeriesList.Clear()  
For Each cV As Col In tV.Cols
    If cV.Name <> "年份" Then
        SeriesV = ChartV.SeriesList.Add() '增加一个图系
        SeriesV.Text = cV.Name '设置图系的标题
        SeriesV.Length = tV.Rows.Count '设置图系的长度
        For rV As Integer = 0 To tV.Rows.Count - 1
            SeriesV.X(rV) = rV
            SeriesV.Y(rV) = tV.Rows(rV)(cV.Name)
 
SeriesV.DataLabelCompass=LabelCompassEnum.NORTH
 SeriesV.DataLabelText = "{#YVAL}"
 SeriesV.DataLabelForeColor=ColoR.GREEN
        Next
    End If
Next
For rV As Integer = 0 To tV.Rows.Count - 1 
    ChartV.AxisX.SetValueLabel(rV, tV.Rows(rV)("年份"))  
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110669 积分:563259 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/7 21:23:00 [只看该作者]

先筛选

Dim tV As Table = Tables("基本情况统计表_tA") 
tv.filter = “木材小消耗量<>0

 回到顶部