以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何指定图表坐标？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=6557)

--  作者：floor2 --  发布时间：2010/4/8 17:48:00 --  如何指定图表坐标？  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 这样的代码错在哪里 ，试了很多次，望高手指点，谢谢