MSChart怎么清除其数据？

[mcgill]

我通过label_click事件触发一个msChart的统计显示，数据正确从数据库中读出，一切正常，但是当我再次点击label时，统计图会在现有的柱状统计显示的基础上再次添加一次数据，所以我想知道，怎么才能让mschart控件首先清空数据呢?

[online]

定义一个过程
Option Explicit
Private Values() As Variant
Private NumPoints As Integer

Private Sub LoadData()
Dim db As Database
Dim qdef As QueryDef
Dim rs As Recordset
Dim dbname As String
Dim i As Integer

' 打开数据库
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "data.mdb"
Set db = OpenDatabase(dbname)

' 获得数据库记录
Set qdef = db.CreateQueryDef("", _
"SELECT 产品类别, 销售额 FROM 销售额")
Set rs = qdef.OpenRecordset(dbOpenSnapshot)

' 查看数据库中记录数
rs.MoveLast
NumPoints = rs.RecordCount
ReDim Values(1 To NumPoints, 1 To 2)

' 加载数据
rs.MoveFirst
For i = 1 To NumPoints
Values(i, 1) = rs!产品类别
Values(i, 2) = rs!销售额 / 10000
rs.MoveNext
Next i
rs.Close
db.Close
End Sub

Private Sub label_click()
LoadData
' 使用MSChart控件显示数据
MSChart1.ChartData = Values
End Sub

每次单击后重新绑定，这样数据就不会累加

mschart控件首先清空数据？？
控件放置后默认的有数据

[mcgill]

你写的数据库的东西挺详细的，但是我想知道怎么清除其默认的数据，我再次点击的时候，她就在我的统计同上添加了默认的统计图表，怎么能每次都清除统计信息呢

[mcgill]

这里没有高手吗？这个问题很难回答吗？

[Kugool8 i]

@mcgill 怎么解决的呀。请赐教

[mcgill]

问题已经得到解决，看来我自己才是高手！呵呵