主题：图表

先进行分组统计得到表格，或者执行sql语句得到临时表

cmd.commandText = "select top 5 设备编号, count(*) as 次数 from {设备维修单} where [日期] >=  '" &  sqrq.value  & "' And [日期] <= '" &  zzrq.value  & "' group by 设备编号 order by count(*)"

http://www.foxtable.com/webhelp/scr/0696.htm

然后根据临时表dt的值，赋值给你的图表

如果不会写，那就先生成分组统计表，然后排序，取前五个数据

http://www.foxtable.com/webhelp/scr/0158.htm

http://www.foxtable.com/webhelp/scr/0677.htm

生成统计表后，参考 http://www.foxtable.com/webhelp/scr/0972.htm

不会做上传实例。

Dim sqrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim zzrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim pmc As WinForm.ComboBox = e.Form.Controls("ComboBox1")

If sqrq.value = Nothing OrElse zzrq.value = Nothing
    MessageBox.show("起始日期不能为空,请先选择起始日期","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
Else
    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 Chart As WinForm.Chart
    Dim Series As WinForm.ChartSeries
    Dim pds = dt.Select("", "故障次数 desc")
    Dim sm As Integer = dt.Compute("Sum(故障次数)")
    Chart= e.Form.Controls("Chart1")
    Chart.SeriesList.Clear()
    Chart.AxisX.ClearValueLabel
    Chart.VisualEffect = True
    Chart.ChartType = ChartTypeEnum.Pie
    Dim num = iif(val(pmc.text)>pds.count, pds.count-1, val(pmc.text)-1)

    For i As Integer = 0 To num
        Series = Chart.SeriesList.Add()
        Series.Length = 1
        Series.Text = pds(i)("设备编号") & "(" & pds(i)("故障次数") & ")"
        Series.Y(0) = pds(i)("故障次数")
        Series.DataLabelText = Math.Round(pds(i)("故障次数") * 100 / sm,1) & "%"
    Next
    Chart.LegendVisible = True
    Chart.LegendCompass= CompassEnum.East
End If

加上你的数据源名

b.ConnectionName = "aaa"