| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 图表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185966) |
| -- 作者：cd_tdh -- 发布时间：2023/3/28 17:15:00 -- 图表 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("统计") \'定义一个变量t引用数据表 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形) Chart.DataSource = "统计" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.X.DataField = "所属机构" \'X轴绑定到产品列 Series.Y.DataField = "数量" \'Y轴绑定到数量列 Chart.Inverted = True \'横向显示 老师，Y轴是从统计表中最小的数量开始的，怎么让它从0开始啊
|
| -- 作者：有点蓝 -- 发布时间：2023/3/28 17:19:00 -- http://www.foxtable.com/webhelp/topics/1016.htm |
| -- 作者：cd_tdh -- 发布时间：2023/3/28 17:23:00 -- 统计表我设置了排序，但是生成的图表没按照排序后的顺序来生成呢？ |
| -- 作者：有点蓝 -- 发布时间：2023/3/28 17:24:00 -- 不要使用绑定，改为遍历生成 |
| -- 作者：cd_tdh -- 发布时间：2023/3/29 8:49:00 -- 老师，没用来呢 Dim t As Table = Tables("统计") Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形) Chart.AxisY.Min = 0 \'指定Y轴的最小值 Chart.AxisX.ClearValueLabel \'清除X轴文体 Chart.AxisX.MinorTick = False \'不显示副刻度 Chart.AxisY.MinorTick = False \'不显示副刻度 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'增加一个图系 Series.Length = t.Rows.Count \'设置图系的长度 For i As Integer = 0 To t.Rows.Count - 1 \'指定每个数据点的位置 Series.X(i) = i \'指定水平坐标 Series.Y(i) = t.Rows(i)("数量") \'指定垂直坐标 Chart.AxisX.SetValueLabel(i, t.Rows(i)("所属机构")) \'指定字符表示 Next Chart.AxisX.AnnoWithLabels = True \'启用字符标示 Chart.Inverted = True \'横向显示 [此贴子已经被作者于2023/3/29 9:08:41编辑过]
|