以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  【图表】求助，如何加入条件判断，不存在时不运行！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112927)

--  作者：李孝春 --  发布时间：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编辑过]

--  作者：有点蓝 --  发布时间：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() \'增加一个图系