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

你好

目的是按给定的时间段和 NumericComboBox1里填入的数字(数字代表前几位，比如5则显示出现次数最多的前5位设备的信息)生成图表。怎么写前几位代码？

Dim mc As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")

Dim Chart As WinForm.Chart

Dim Series As WinForm.ChartSeries

Dim t As DataTable = DataTables("设备维修单")

Dim pds As List(of String) = t.SQLGetValues("设备编号","[日期] > = '" & sqrq.value & " ' And [日期] < = ' " & zzrq.value & "'")

Dim sm As Integer = t.SQLCompute("Count(设备编号)","[日期] > = '" & sqrq.value & " ' And [日期] < = ' " & zzrq.value & "'")

Chart= e.Form.Controls("Chart1")

Chart.SeriesList.Clear()

Chart.AxisX.ClearValueLabel

Chart.VisualEffect = True

Chart.ChartType = ChartTypeEnum.Pie

For i As Integer = 0 To pds.Count - 1

Series = Chart.SeriesList.Add()

Series.Length = 1

Dim pdt = val(t.SQLCompute("Count(设备编号)", "设备编号 = '" & pds(i) & "' and [日期] > = '" & sqrq.value & " ' And [日期] < = ' " & zzrq.value & "'"))

Series.Text = pds(i) & "(" & pdt & ")"

Series.Y(0) = pdt

Series.DataLabelText = Math.Round(pdt * 100 / sm,1) & "%"

弄不出来，帮忙写下代码。谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

下拉选择数字，选2，图表显示top 2,选5图表显示 top5

Dim dt As DataTable
    Dim b As New GroupTableBuilder("设备故障统计表",DataTables("表A"))
    b.filter = "[日期] > = #" & sqrq.value & "# And [日期] < #" & zzrq.value.adddays(1) & "#"
    b.Groups.AddDef("设备编号")
    b.Totals.AddDef("设备编号",AggregateEnum.Count, "故障次数")
    dt = b.Build(False)

怎么转成出错

Dim dt As DataTable
    Dim b As New SQLGroupTableBuilder("设备故障统计表","表A")
    b.filter = "[日期] > = '" & sqrq.value & "' And [日期] < '" & zzrq.value.adddays(1) & "'"
    b.Groups.AddDef("设备编号")
    b.Totals.AddDef("设备编号",AggregateEnum.Count, "故障次数")
    dt = b.Build(False)

主题：图表