以下内容为程序代码:

1 Dim y As Integer = Date.Today.Year
2 Dim m As Integer = Date.Today.Month
3 Dim dt1 As New Date(y, m, 1)
4 Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
5 Dim Filter As String
6 Filter = "订单确认日期 ＞= #" & dt1 & "# And 订单确认日期 ＜= #" & dt2 & "#"
7 Tables("已确认的订单").Filter =Filter
8 Dim Chart As WinForm.Chart \'定义一个图表变量
9 Dim Series As WinForm.ChartSeries \'定义一个图系变量
10 Dim tbl As Tables = Tables("已确认的订单") \'定义一个变量tbl引用数据表
11 Dim lst As List(Of String) = tbl.GetValues("客户") \'获得客户名称集合
12 Chart = e.Form.Controls("Chart3") \' 引用窗口中的图表
13 Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)
14 Chart.SeriesList.Clear() \'清除图表原来的图系
15 Chart.AxisY.Major = 5000 \'主刻度间隔值为5000
16 Series = Chart.SeriesList.Add() \'增加一个图系
17 Series.Length = lst.Count \'设置图系的长度
18 For i As Integer = 0 To lst.Count - 1 \'指定每个数据点的位置
19 Series.X(i) = i \'指定水平坐标
20 Series.Y(i) = tbl.Compute("Sum(拿下金额)","[客户] = \'" & lst(i) & "\'") \'指定垂直坐标
21 Series.DataLabelText = "{#YVAL}"
22 Chart.AxisX.SetValueLabel(i, lst(i)) \'指定字符表示
23 Next
24 Chart.AxisX.AnnoWithLabels = True \'启用字符标示