以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  chart图标中Y坐标  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160959)

--  作者：lisangyu --  发布时间：2021/2/27 15:50:00 --  chart图标中Y坐标 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮 Chart.ChartType = ChartTypeEnum.Bar \'图表1类型该为Bar(条形) Chart.DataSource = "知识文档" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'给图表1增加一个图系 Series.Text = "部门知识库" Dim tbl As DataTable = DataTables("知识文档") \'定义一个变量tbl引用数据表 Dim lst As List(Of String) = tbl.GetValues("二级目录") \'获得产品名称集合 Series.Length = lst.Count For i As Integer = 0 To lst.Count - 1 \'指定每个数据点的位置     Series.X(i) = i \'指定水平坐标     Series.Y(i) = (Tables("知识文档").Find("[二级目录] = \'" & lst(i) & "\'").Rows.Count \'\'\'\'tbl.Compute("Sum(路径)","[二级目录] = \'" & lst(i) & "\'") \'指定垂直坐标     Chart.AxisX.SetValueLabel(i, lst(i)) \'指定字符表示 Next Chart.AxisX.AnnoWithLabels = True \'启用字符标示 Chart.LegendVisible = True \'显示图列 Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端) Chart.AxisY.Text = "数量" Series.DataLabelText = "{#YVAL}"  \'\'\'显示数值 Chart.AxisX.AnnoRotation = - 30 \'X轴标示逆时针旋转45度 蓝总：Y坐标是统计知识文档中 二级目录等于 i的行数，上面写的有问题，麻烦指点下 [此贴子已经被作者于2021/2/27 16:53:40编辑过]

--  作者：有点蓝 --  发布时间：2021/2/27 17:14:00 --   Series.Y(i) = Tables("知识文档").compute("count(二级目录)","[二级目录] = \'" & lst(i) & "\'")