不显示临时表出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不显示临时表出错

共有2014人关注过本帖树形打印复制链接主题：不显示临时表出错

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/22 15:22:00 [显示全部帖子]

Dim dt As DataTable =DataTables("表A")
Dim t As DataTable
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("年龄段",Gettype(String),32)
dtb.AddDef("人数", Gettype(Integer))
t=dtb.Build(True)
Dim dr1 As DataRow = t.AddNew()
dr1("年龄段") = "20岁-30岁"
dr1("人数")=dt.Compute("Count(姓名)", "年龄" & " >= 20 And " & "年龄" & " < 30" )

Dim dr2 As DataRow = t.AddNew()
dr2("年龄段") = "30岁-40岁"
dr2("人数")=dt.Compute("Count(姓名)", "年龄" & " >= 30 And " & "年龄" & " < 40" )

Dim dr3 As DataRow = t.AddNew()
dr3("年龄段") = "40岁-50岁"
dr3("人数")=dt.Compute("Count(姓名)", "年龄" & " >= 40 And " & "年龄" & " < 50" )

Dim dr4 As DataRow = t.AddNew()
dr4("年龄段") = "50岁-60岁"
dr4("人数")=dt.Compute("Count(姓名)", "年龄" & " >= 50 And " & "年龄" & " < 60" )

Dim dr5 As DataRow = t.AddNew()
dr5("年龄段") = "60岁以上"
dr5("人数") = dt.Compute("Count(姓名)", "年龄" & " >= 60" )

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/22 15:44:00 [显示全部帖子]

改成下面代码

''生成饼状图

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

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

Dim t1 As dataTable = t '定义一个变量t引用数据表

Dim sm As Integer = t1.Compute("Sum(人数)") '计算总数量

Chart= Forms("统计窗口").Controls("Chart2") ' 引用窗口中的图表

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

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

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

For Each r As dataRow In t1.dataRows

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 '图列显示在东方(右方)

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

主题：不显示临时表出错