- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [分享]图示数据占比转换成百分比! (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=11274)
-- 发布时间：2011/7/15 17:22:00
-- [分享]图示数据占比转换成百分比!
关于图表的数据标示,帮助文件说 ToolTipText一样，DataLabelText也可以使用各种代码
可以使用一些代码来标示数据，可使用的代码如下：
#XVAL： X值
#YVAL： Y值
#Y1VAL：
Y1值
#Y2VAL： Y2值
#Y3VAL： Y3值
#ISERIES： 图序编号
#IPOINT:
数据点编号
代码必须用大括号“{}”括起来。
但只是简单举了个 数据标示的方法:
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t
As Table = Tables("统计表1") \'定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar
\'图表类型该为Bar(条形)
Chart.DataSource = "统计表1" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series =
Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField = "产品" \'X轴绑定到产品列
Series.Y.DataField = "数量" \'Y轴绑定到数量列
Series.DataLabelText =
"{#YVAL}"
而[图示数据占比转换成百分比]这个常用的标示没有例子,于是狐友想方设法:Series.DataLabelText = Format("{#YVAL}","#0.00%")
Series.DataLabelText = "{Format(#YVAL,""#0.00%"")}"
...
当然试过知道不成功!
其实
DataLabelText是可以用代码生成的,以下一例子,希望对大家有所启发.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ts.table |
-- 发布时间：2011/7/15 17:37:00
--
我顶，给精
-- 发布时间：2011/7/16 16:19:00
--
感谢楼主提供这样一个好实例，功能实现学了一招。
-- 发布时间：2011/7/16 19:07:00
--
支持一下楼主，很不错的例子
-- 发布时间：2011/7/16 23:29:00
--
1楼，很厉害哦。。。。。学习了
-- 发布时间：2011/7/17 8:24:00
--
