- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 图表数据标识问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176299)
-- 发布时间：2022/4/7 20:30:00
-- 图表数据标识问题
如图表中，标识的数据为0
要：在统计图表数据标识中，不为0的标识，为0的不标识
请教代码
-- 发布时间：2022/4/7 20:33:00
--
请正确上传图片：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
并贴出代码说明问题
-- 发布时间：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
-- 发布时间：2022/4/7 21:23:00
--
先筛选
Dim tV As Table = Tables("基本情况统计表_tA")
tv.filter = “木材小消耗量<>0”