Foxtable(狐表)用户栏目专家坐堂 → 【图表】求助,如何加入条件判断,不存在时不运行!


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

主题:【图表】求助,如何加入条件判断,不存在时不运行!

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
【图表】求助,如何加入条件判断,不存在时不运行!  发帖心情 Post By:2018/1/5 11:38:00 [只看该作者]

【图标】求助,如何加入条件判断,不存在时不运行!

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编辑过]

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


加好友 发短信
等级:超级版主 帖子:107135 积分:544918 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/1/5 12:11:00 [只看该作者]

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 = "门店名称 = '永吉地板'"
if t.rows.count = 0 then return
For r As Integer = 0 To t.Rows.Count - 1
    Series = Chart.SeriesList.Add() '增加一个图系

 回到顶部