________________请帮帮我！—————急——————MSCHART问题

Question

：　dbcontrols(泰山__我偏不走,气死他们!哈哈哈哈)　
我想把第一条去掉，即这时候Mschart上一条曲线也不存在，怎么办？

Answer 1

Private Sub Command1_Click()
For i = 1 To MSChart1.RowCount
MSChart1.Row = i
For j = 1 To MSChart1.ColumnCount
MSChart1.Column = j
MSChart1.Data = 0
Next j
Next i
End Sub

Answer 2

dbcontrols(泰山__我偏不走,气死他们!哈哈哈哈)　
我试了一下，还有问题
当我第一次曲线由6个点组成，而第二次由4点组成时，第二次曲线还显示6个点。其中前4点值是第二次曲线的值，可是怎么又出现上次曲线的第5和6的点呢？还是相当于把MSCHART清空时没清干净。可是我看你的循环也看不出哪儿有问题呀，怎么回事？

Answer 3

记住一点即可：
那些线是一个一个点组成的，移动位置用MSChart1.Row 和MSChart1.Column，跟填写表格没什么差别，移动到一个地方就用MSChart1.Data 赋值，MSChart1.RowCount是总行数MSChart1.ColumnCount
是总列数，二者也可以改变。至于怎么循环和控制，自己琢磨琢磨。

Answer 4

：　dbcontrols(泰山__我偏不走,气死他们!哈哈哈哈)　
请你帮我试一下，第一条6点，清空，第二条4点，能不能成功？拜托拜托！

Answer 5

Private Sub Command1_Click()
MSChart1.Row = 1
For j = 1 To 6
MSChart1.Column = j
MSChart1.Data = 0
Next j
MSChart1.Row = 2
For j = 1 To 4
MSChart1.Column = j
MSChart1.Data = 0
Next jEnd Sub

Answer 6

Private Sub Command1_Click()
MSChart1.Column = 1
For j = 1 To 6
MSChart1.Row = j
MSChart1.Data = 0
Next j
MSChart1.Column = 2
For j = 1 To 4
MSChart1.Row = j
MSChart1.Data = 0
Next j
End Sub