主题：[求助]

以下内容为程序代码:

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 '启用字符标示