圆饼图表生成 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 圆饼图表生成

共有4550人关注过本帖树形打印复制链接主题：圆饼图表生成

yangwenghd

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/30 21:48:00 [显示全部帖子]

太感谢了太感谢了，可以了

yangwenghd

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/30 21:55:00 [显示全部帖子]

这里显示的和内容怎么对不起呀，感谢感谢

此主题相关图片如下：搜狗截图18年08月30日2153_1.png

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Dim t As Table = Tables("表A")

Dim sum As Double = 0

For Each s As String In t.DataTable.GetValues("第一列", "第一列 is not null")

Dim fdr As DataRow = t.DataTable.find("第一列='" & s & "'", "_sortkey desc")

If fdr IsNot Nothing Then

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = "全部" '设置图系的标题

Series.TooltipText = Series.Text & " : {#YVAL}" '显示数据

series.DataLabelText = "{#YVAL}" '显示数据

Series.Length = 1 '一个系列只能包括一个值

Series.Text = s

Series.Y(0) = fdr("第二列")

Series.DataLabelText = fdr("第二列")

'msgbox(fdr("第二列"))

sum += fdr("第二列")

End If

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)

[此贴子已经被作者于2018/8/30 21:56:02编辑过]

yangwenghd

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/31 1:17:00 [显示全部帖子]

能在帮忙看看吗？

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("表A") '定义一个变量t引用数据表

Dim sm As Integer = t.Compute("Sum(第二列)") '计算总数量

Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

For Each r As Row In t.Rows

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = 1 '一个系列只能包括一个值

Series.Text = r("第一列") & "(" & r("第二列") & ")" '设置图系的标题

Series.Y(0) = r("第二列") '指定值

Series.DataLabelText = Math.Round(r("第二列")*100/sm,2) & "%" '计算百分比

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.East '图列显示在东方(右方)

为什么第二列相同会在图表分开显示数据呢，感谢感谢

yangwenghd

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/31 10:06:00 [显示全部帖子]

此主题相关图片如下：搜狗截图18年08月31日1005_1.gif

可以让相同的显示在一起吗？感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:选行图表显示 (1).table

yangwenghd

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/31 10:24:00 [显示全部帖子]

感谢感谢

此主题相关图片如下：搜狗截图18年08月31日1023_2.gif

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = 1 '一个系列只能包括一个值

Series.Text = s & "(" & sum & ")" '设置图系的标题

Series.Textv = s & "" '设置图系的标题

Series.Y(0) = sum

Series.TooltipText = Series.Textv & " : {#YVAL}" '显示数据

Series.DataLabelText = Math.Round(sum*100/sm,2) & "%" '计算百分比

这里会显示两次数据，我应该怎么改一下呀，感谢感谢

yangwenghd

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/8/31 10:39:00 [显示全部帖子]

感谢感谢会努力的，我会找一个时间段系统的学习，比如半年，主要是学个三五两天就忘记了，也不习惯今天学这个明天学那个，感谢往日的帮助，感谢，你们开发的这个软件太有用了，后面肯定会抽时间学的，感谢感谢

yangwenghd

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/9/16 20:37:00 [显示全部帖子]

能帮忙看看这个吗？可以让显现的图支出日期列只为当月吗？感谢感谢感谢

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart= Forms("财务汇总窗口").Controls("Chart04") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Dim t As Table = Tables("支出明细")

Dim sm As Integer = t.Compute("Sum(支出金额)") '计算总数量

For Each s As String In t.DataTable.GetValues("支出类型", "支出类型 is not null")

Dim sum = t.DataTable.compute("sum(支出金额)", "支出类型='" & s & "'")

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = 1 '一个系列只能包括一个值

Series.Text = s & "(" & sum & ")" '设置图系的标题

Series.Y(0) = sum

Series.TooltipText = s & " : {#YVAL}" '显示数据

Series.DataLabelText = Math.Round(sum*100/sm,2) & "%" '计算百分比

yangwenghd

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/9/16 22:33:00 [显示全部帖子]

感谢感谢

如果红色的部分分别加入日期列可以吗？蓝色的部分加入时间列的同时只计算相同的最后一行，比如蓝色代码最后一个月有两次或者多长相同的欠款名称只计算相同的最后一行，感谢感谢

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart= Forms("财务汇总窗口").Controls("Chart5") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Dim nms() As String = {"企业档案","投资资产","供应系统"}

Dim nms2() As String = {"财务_待收款"，"订单日期“,"资产时态_在投资金","更新日期”,"未支付合计"，“回款日期”} 'nms和sm2是按照列的合计计算.

Dim nms3() As String = {"欠款明细"}

Dim nms4() As String = {“欠款名称”，"欠款合计"，“欠款日期”} 'nms3和sm4是按照列的最后一行计算.

Dim sum As Double = 0

For i As Integer = 0 To nms.Length - 1

sum += Tables(nms(i)).Compute("sum(" & nms2(i) & ")")

For i As Integer = 0 To nms.Length - 1

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = 1 '一个系列只能包括一个值

Series.Text = nms(i)

Dim cnt = Tables(nms(i)).Compute("sum(" & nms2(i) & ")")

Series.Y(0) = cnt

Series.DataLabelText = Math.Round(cnt*100/sum ,2) & "%"

Series.TooltipText = nms(i) & " : {#YVAL}" '显示数据

series.DataLabelText = "{#YVAL}" '显示数据

For i As Integer = 0 To nms3.Length - 1

Dim r As Row = Tables(nms3(i)).Rows(Tables(nms3(i)).count-1)

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = 1 '一个系列只能包括一个值

Series.Text = nms3(i) & "(" & r(nms4(i)) & ")"

Series.Y(0) = r(nms4(i))

Series.DataLabelText = r(nms4(i))

Series.TooltipText = nms3(i) & " : {#YVAL}" '显示数据

series.DataLabelText = "{#YVAL}" '显示数据

yangwenghd

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/9/16 23:17:00 [显示全部帖子]

感谢就是计算当月合计，只是负载汇总表在加上一个条件，只计算当月支出项目列不相同列的最后一行，感谢感谢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:统计图表学习2.table

此主题相关图片如下：qq截图20180916231359.png

此主题相关图片如下：qq截图20180916231341.png

此主题相关图片如下：qq截图20180916231312.png

[此贴子已经被作者于2018/9/16 23:17:34编辑过]

yangwenghd

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/9/17 10:01:00 [显示全部帖子]

感谢感谢太感谢

如果要把这个每个表显示的图表分开一个怎么做啊感谢感谢

每个分开的表在细分每个表的类别和品种，感谢感谢
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20180917095928.jpg

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Chart= Forms("图表学习2").Controls("Chart1") ' 引用窗口中的图表

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.ChartType = ChartTypeEnum.Pie '图表1类型改为Bar(条形)

Dim nms1() As String = {"经营汇总","支出汇总"}

Dim nms2() As String = {"变动金额", "支出金额"}

Dim nms3() As String = {"经营日期", "支持日期"}

Dim nms4() As String = {"经营项目", "支出项目"}

For i As Integer = 0 To nms1.Length - 1

Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)

For Each s As String In DataTables(nms1(i)).GetValues(nms4(i), nms4(i) & " Is not null And " & nms3(i) & " >= #" & d & "# and " & nms3(i) & " < #" & d.AddMonths(1) & "#")

Dim sum As Double = DataTables(nms1(i)).compute("sum(" & nms2(i) & ")", nms4(i) & "='" & s & "' and " & nms3(i) & " >= #" & d & "# and " & nms3(i) & " < #" & d.AddMonths(1) & "#")

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = 1 '一个系列只能包括一个值

Series.Text = s & "(" & sum & ")" '设置图系的标题

Series.Y(0) = sum

Series.TooltipText = s & " : {#YVAL}" '显示数据

Series.DataLabelText = sum

If r("产品") = "PD05" Then '如果是产品PD05

Series.Offset = 20 '那么图系偏离中心点20个像素.

End If

Chart.LegendVisible = True '显示图列

下一主题 >> << 上一主题

总数 24 上一页 1 2 3 下一页

主题：圆饼图表生成