For i As Integer = 0 To m-1 '指定每个数据点的位置 Series.X(i) = i '指定水平坐标 Dim d As Date = new Date(2017, i+1, 1) msgbox(d) s = DataTables("1").sqlcompute("面积","完成人= '"& text &"' And 时间 >= '" & d & "' And 时间 < '" & d.AddMonths(1) & "'") Series.Y(i) = s '垂直坐标用随机数生成 Next