【图标】求助,如何加入条件判断,不存在时不运行!
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("门店产值") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.xyplot
'图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
t.filter = "门店名称 = '永吉地板'"
在这里应该加入一个什么判断,当门店产值里面没有永吉地板这个门店名称记录时,下面的操作不运行呢?
For r As Integer = 0 To t.Rows.Count - 1
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = t.rows(r)("门店名称") '设置图系的标题
Series.Length = t.cols.Count - 2 '设置图系的长度
For i As Integer = 2 To t.cols.count-1
Series.X(i-2) = i-2
Series.Y(i-2) = t.Rows(r)(t.cols(i).name)
Chart.AxisX.SetValueLabel(i-2, t.cols(i).name) '指定字符表示
Next
Next
Series.DataLabelText = "{#YVAL}"
Series.TooltipText = "永吉地板{#XVAL}月, {#YVAL}元"
[此贴子已经被作者于2018/1/5 11:59:31编辑过]