Foxtable(狐表)用户栏目专家坐堂 → [求助]饼形图如何生成图片文件


  共有2406人关注过本帖平板打印复制链接

主题:[求助]饼形图如何生成图片文件

帅哥哟,离线,有人找我吗?
洮沙
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:815 积分:6998 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]饼形图如何生成图片文件  发帖心情 Post By:2019/9/26 15:33:00 [只看该作者]

 Dim Chart As WinForm.Chart '定义一个图表变量
    Dim Series As WinForm.ChartSeries '定义一个图系变量
    Dim t As Table = Tables("批次统计临时表") '定义一个变量t引用数据表
    Dim sm As Integer = t.Compute("Sum(各环节成本)") '计算总数量
    Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
    Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
    Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)
    Chart.SeriesList.Clear()
    For Each r As Row In t.Rows
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Length = 1 '一个系列只能包括一个值
        Series.Text = r("各环节名称") & "(" & Format(r("各环节成本"),"#,###.00") & ")" '设置图系的标题
        Series.Y(0) = r("各环节成本") '指定值
        If r("各环节名称") = "其他环节" Then '如果是其他环节
            Series.Offset = 20 '那么图系偏离中心点20个像素.
        End If
        Series.DataLabelText = Math.Round(r("各环节成本")*100/sm,2) & "%" '计算百分比
    Next

 

由以上“饼形图”生成代码,如何生成图片文件,在EXCEL 打印模板中引用?

 

参考以下帮助,把自己搞糊涂了!

http://www.foxtable.com/webhelp/topics/1924.htm

 

麻烦老师指点一二,谢谢!

[此贴子已经被作者于2019/9/26 16:48:44编辑过]

 回到顶部