关于mschart控件，急，在线等~

Question

如何清除MsChart中已设定的曲线数据，即如何把数据清空啊，要不我的曲线容易乱啊，请赐教
急，在线等~

Answer 1

参考代码：
Private Sub Command1_Click()
On Error Resume NextAdodc1.Recordset.MoveFirst
n = Adodc1.Recordset.RecordCountMSChart1.RowCount = n
MSChart1.ColumnCount = 1
For i = 1 To n
MSChart1.Row = i
MSChart1.Data = Adodc1.Recordset(1)
MSChart1.RowLabel = Adodc1.Recordset(0) & ":  " & Adodc1.Recordset(1) & "次"
Adodc1.Recordset.MoveNext
Next
MSChart1.ChartType = VtChChartType2dBarMSChart1.Refresh
 
End Sub

Answer 2

主要是下面属性：
MSChart1.Data是数据 
MSChart1.RowCount 
MSChart1.ColumnCount 
MSChart1.Row 
MSChart1.Column
MSChart1.Data 
MSChart1.ChartType

Answer 3

谢谢楼上两位，不过，你们好象搞错我的提问了。
我目前在做实时曲线，刚进入界面是无数据无曲线的。
但是mschart却有杂乱的曲线，想消除。
可是偶不会，大家救救我，谢谢啦~~~~

Answer 4

www.wave12.com图表组件示例代码参考
 
图表组件wsChart3.84 功能特点： 
1、多种样式统计图表制作，包括柱状图，折线图，饼图，柏拉图，点状图等；
2、输出多种格式文件，包括BMP，JPG，GIF等格式，输出质量自定义； 
3、可在任意位置添加线条、文字、图片；
4、可将统计结果直接输出到浏览器，包括BMP，JPG和GIF格式；
5、柱状图表支持序列数据组比较；
6、图表填充方式支持图片填充；
7、数十个属性灵活控制图表布局和外观；
8、支持鼠标移上显示数据功能；
9、组件用于WEB开发时只需要服务器端注册即可，无须客户端安装。
10、灵活的接口设计，适用于VB，VC，DELPHI等开发工具。
11、性能稳定,消耗系统资极少，无内存泄露。

Answer 5

Private Sub Command1_Click()
   With MSChart1
      '显示一个具有 8 行 8 列数据的三维图表。
      .ChartType = VtChChartType3dBar
      .ColumnCount = 8
      .RowCount = 8
      For column = 1 To 8
         For row = 1 To 8
            .Column = column
            .Row = row
            .Data = row * 10
         Next row
      Next column
      '将图表作为图例的背景。
      .ShowLegend = True
      .SelectPart VtChPartTypePlot, index1, index2, _
      index3, index4
      .EditCopy
      .SelectPart VtChPartTypeLegend, index1, _
      index2, index3, index4
      .EditPaste
   End With
End Sub

Answer 6

把randomfill属性设置成false看看，该没问题了

Answer 7

"把randomfill属性设置成false看看",好像不行.

Answer 8

引搂诸：
"...刚进入界面是无数据无曲线的。
但是mschart却有杂乱的曲线，想消除。"
randomfill属性设置成false该可以解决这个问题