[分享]图示数据占比转换成百分比! - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

关于图表的数据标示,帮助文件说

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

主题：[分享]图示数据占比转换成百分比!