以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助] 关于图系Text的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145164)

--  作者：zuoshougaogui --  发布时间：2020/1/10 12:29:00 --  [求助] 关于图系Text的问题 此主题相关图片如下：2.png 我按照帮助文档中设置图表，但是在图系标题这里出现疑问，表中列名与图表的图系Text不同 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("统计表2") \'定义一个变量t引用数据表 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形) Chart.SeriesList.Clear() \'清除图表原来的图系 For Each c As Col In t.Cols     If c.Name <> "科室"  And c.Name <> "合计" Then         Series = Chart.SeriesList.Add() \'增加一个图系         Series.Text = c.Name \'设置图系的标题         Series.Length = t.Rows.Count \'设置图系的长度         For r As Integer = 0 To t.Rows.Count - 1             Series.X(r) = r             Series.Y(r) = t.Rows(r)(c.Name)         Next     End If Next For r As Integer = 0 To t.Rows.Count - 1     Chart.AxisX.SetValueLabel(r, t.Rows(r)("科室")) \'指定字符表示 Next Chart.AxisX.AnnoWithLabels = True \'启用字符标示 Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮 Chart.LegendVisible = True \'显示图列 Chart.LegendCompass= CompassEnum.east \'图列显示在南方(底端) [此贴子已经被作者于2020/1/10 12:30:13编辑过]

--  作者：有点蓝 --  发布时间：2020/1/10 13:47:00 --   Series.Text = c.caption \'设置图系的标题. c.Name是列名 c.caption是列标题 统计表一般显示的是列标题

--  作者：zuoshougaogui --  发布时间：2020/1/10 14:16:00 --   谢谢解答