以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何自定义图表显示数值格式?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67694)

--  作者:老奤
--  发布时间:2015/4/29 11:26:00
--  [求助]如何自定义图表显示数值格式?

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150429112546.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150429112357.png
图片点击可在新窗口打开查看

如图,走户进度百分比统计表中显示的是0.00%这种格式的,为什么到了图表中显示成这么多位的小数了?
代码如下,哪位老师给看看

If DataTables.Contains("走户进度百分比统计表") = False Then  \'不存在这个表  
Dim b As New SQLGroupTableBuilder("走户进度百分比统计表","十二组")
b.Groups.AddDEF("居民组")
b.Totals.AddDEf("居民组",AggregateEnum.Count,"契证数")
b.Totals.Addexp("已走户","iif(协议日期 Is null,0,1)") \'生成临时统计表
\'b.Totals.Addexp("未走户","iif(协议日期 Is null,1,0)") 
b.Build
DataTables("走户进度百分比统计表").DataCols.Add("百分比",Gettype(Double),"已走户/契证数")
DataTables("走户进度百分比统计表").datacols("百分比").SetFormat("0.00%")
End If
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = False \'风格
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.DataSource = "走户进度百分比统计表" \'设置绑定表
Chart.AxisX.ClearValueLabel \'清除文本残留影响
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "百分比"
Series.X.DataField = "居民组" \'X轴绑定到产品列
Series.Y.DataField = "百分比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}" \'显示数值
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}" \'显示数值
Chart.Stacked = False \'图形叠加
Chart.BarClusterWidth = 60 \'横向宽度
Chart.AxisY.Major = 1 \'主刻度间隔值



--  作者:Bin
--  发布时间:2015/4/29 11:31:00
--  
设置不了呢,数值是什么就显示什么
--  作者:Bin
--  发布时间:2015/4/29 11:31:00
--  
你可以从原本的数值下手.
--  作者:狐狸爸爸
--  发布时间:2015/4/29 11:52:00
--  

来个四舍五入:

 

http://www.foxtable.com/help/topics/0108.htm