以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表显示结果为:绑定表内两列相加  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175048)

--  作者:jwt
--  发布时间:2022/2/17 16:30:00
--  图表显示结果为:绑定表内两列相加
想统计个年末人数,但我表里设置的是期初人数,还有个年度净增减列,年末人数=期初+净增减,想通过代码的方式完成,不想改变表结构(我也想过再增加一列),请问代码如何优化?

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 = "历年员工总量变化情况"
Series.X.DataField = "年度" \'X轴绑定到产品列
Series.Y.DataField = "期初人数" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Chart.AxisY.Text = "人数"

--  作者:有点蓝
--  发布时间:2022/2/17 16:47:00
--  
如果是绑定的,需要增加辅助列,可以添加一个表达式列,然后隐藏

否则就不要使用绑定,直接遍历,类似:http://www.foxtable.com/webhelp/topics/0967.htm,看方法1