dim s as single
dim ss as single
dim sss as single
dim d as date=#01/01/2010#
dim d1 as date
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
for i as integer=1 to 365
d1=d.adddays(i)
if d1> date.today()
exit for
end if
messagebox.show(d1,i)
'Series.Length = i '设置图系的长度
Series.X(i) = i
‘s = DataTables("发货清单").Compute("Sum(金额)","[发货日期] ='" & d1 & "'")
’ss= DataTables("收款表").Compute("Sum(收款金额)","[收款日期] = '" & d1 & "'" )'"[发货日期] = [日期]")
'ssss=DataTables("应收账款").Compute("Sum(应收金额)"," " )'"[发货日期] = [日期]")
‘ sss=s-ss 'DataTables("发货清单").Compute("Sum(应收金额)"," ") '" & Value(0) & "'" )'"[发货日期] = [日期]")
messagebox.show(d1,sss)
For f as integer=0 to 5 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Series.Y(i) =56 '指定垂直坐标
Next
next
这样的代码错在哪里 ，试了很多次，望高手指点，谢谢