在VB中使用teechart 5.0的问题

[clampid]

我要在teechart中画两条曲线。代码如下，虽然是曲线画出来了。但是，第二条曲线对应的x坐标不对
Dim sql As String
Dim str As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'画第一条曲线
sql = "select * from ACount where ID=350"
str = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and Settings\Admin\桌面\ceshi\20081011.mdb;"
conn.Open str
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
Do While rs.EOF = False
TChart1.Series(0).Add rs.Fields("AMAX"), CStr(rs.Fields("RecDate")), vbblank
rs.MoveNext
Loop
End If
rs.Close
conn.Close

'画第二条曲线

sql = "select value,RecDate from ARECORD where ID=350"
str = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and Settings\Admin\桌面\ceshi\20081011.mdb;Jet OLEDB:Database Password=750409"
conn.Open str
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
If Not (rs.EOF And rs.BOF) Then
Do While rs.EOF = False
TChart1.Series(1).Add rs.Fields("value"), CStr(rs.Fields("RecDate")), vbblank
rs.MoveNext
Loop
End If

rs.Close
conn.Close

请问该怎么修改呢？谢谢

[zuoxingyu]

沙发，接分。。

[clampid]

vb使用teechart画曲线时，当鼠标在上面移动时显示对应的x、y坐标值。代码如下:

Private Sub TChart1_OnMouseMove(ByVal Shift As TeeChart.EShiftState, ByVal X As Long, ByVal Y As Long)
TChart1.Tools.Items(1).asAnnotation.Text = "时间(T)：" & Format(TChart1.Series(0).XScreenToValue(X), "yyyy-mm-dd hh:nns") & " " & "测值(%)：" & Format(TChart1.Series(0).YScreenToValue(Y), "0.000")
End Sub



但是这段代码是不论鼠标在哪里都显示x、y坐标值(不在曲线上也显示)，我现在想实现的是当鼠标在曲线上时才显示对应的值



请问该怎么做

[jiang_jiajia10]

帮顶

[derek02]

up

[hello_727]

答案发你邮箱了

[meritw]

hello_727 能给我一份么》？我的邮箱[e-mail]

[唐朝品鉴（Edgar）]

我也要！[e-mail]