asp.net调用数组画趋势图的问题，提示索引超出范围，在先等，我会放高分的，谢谢
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim str As String = " SELECT date,h2 FROM History_sp"
Dim CountText As String = "SELECT COUNT(*) From History_sp"
Dim conn1 As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\spdb.mdb;" & _
"User ID=Admin;" & _
"Password="
Dim conn As OleDbConnection = New OleDbConnection(conn1)
conn.Open()
Dim mycommand As OleDbCommand = New OleDbCommand(str, conn)
Dim myCount As OleDbCommand = New OleDbCommand(CountText, conn)
Dim i, NumPoints As Integer
NumPoints = myCount.ExecuteScalar
conn.Close()
conn.Open()
Dim myOleDbDataReader As OleDbDataReader
myOleDbDataReader = mycommand.ExecuteReader()
Dim ax(NumPoints - 1)
Dim ay(NumPoints - 1)
While myOleDbDataReader.Read
ax(i) = myOleDbDataReader.GetValue(1)
ay(i) = myOleDbDataReader.GetValue(0)
i = i + 1
End While
conn.Close()
'声明整型变量i，
'创建一个位图对象，用来放置柱形图，我们可以把它看作是一块画布。
'这里宽、高分别是400和200，当然，你也可以根据需要把它们做为参数来进行传递。
Dim objBitMap As New Bitmap(400, 200)
'声明一个图形对象，在上面创建的位图上画图。
Dim objGraphics As Graphics
'从指定的objBitMap对象创建新图形对象objGraphics。
objGraphics = Graphics.FromImage(objBitMap)
'清除整个绘图面并以指定白色为背景色进行填充。
objGraphics.Clear(Color.White)
'创建一个数据源，这里我们为了方便其间，采用数组做为柱形图和饼图的数据源。
'在画布（objBitMap对象）的坐标5，5处，用指定的Brush（画笔）对象和Font（字体）对象绘制统计图标题。
objGraphics.DrawString(" X 公司上半年销售情况", _
New Font("宋体", 16), Brushes.Black, New PointF(5, 5))
'创建图例文字。
Dim symbolLeg As PointF = New PointF(335, 20)
Dim descLeg As PointF = New PointF(360, 16)
'画出图例。利用objGraphics图形对象的三个方法画出图例：
'FillRectangle()方法画出填充矩形，DrawRectangle()方法画出矩形的边框，
'DrawString()方法画出说明文字。这三个图形对象的方法在 .NET 框架类库类库中均已重载，
'可以很方便根据不同的参数来画出图形。
For i = 0 To ax.Length - 1
'画出填充矩形。
objGraphics.FillRectangle(New SolidBrush(GetColor(i)), symbolLeg.X, symbolLeg.Y, 20, 10)
'画出矩形边框。
objGraphics.DrawRectangle(Pens.Black, symbolLeg.X, symbolLeg.Y, 20, 10)
'画出图例说明文字。
objGraphics.DrawString(ax(i).ToString, New Font("宋体", 10), Brushes.Black, descLeg)
'移动坐标位置，只移动Y方向的值即可。
symbolLeg.Y += 15
descLeg.Y += 15
Next i
For i = 0 To NumPoints - 1
Dim pen1 As Pen = New Pen(Color.Blue)
Dim point1 As New Point(Val(ax(i)), Val(ay(i)))
Dim point2 As New Point(Val(ax(i + 1)), Val(ay(i + 1)))
objGraphics.DrawLine(pen1, point1, point2)
Next
'将objGraphics对象以指定的图形格式（这里是Gif）保存到指定的Stream对象，并输出到客户端。
objBitMap.Save(Response.OutputStream, ImageFormat.Gif)
End Sub
draw.line函数的各个参数要求是point类型或single，而我想画的是日期趋势图，这里面的日期怎么处
问题点数：60、回复次数：2Top
1 楼Eddie005（♂) №.零零伍 (♂）回复于 2006-08-02 16:08:27 得分 0
具体是哪一行报错了？？Top
2 楼flyye_cs（一叶孤舟）回复于 2006-08-02 21:35:41 得分 0
调试一下,看看哪一行的问题!Top
