- -RT,现在是心急如焚 下面的代码中曲线图X值一直都是0 1 2 3.。 而不是我想给的值。。Y值显示正常,不知道为什么啊。。
Dim i As Integer
Dim j As Integer
Dim x(50) As Single
Dim y(50) As Single
For i = 1 To form.j - 1
x(i) = form.a(i, 8)
y(i) = form.a(i, 9)
Next With AxTChart1
.Series(0).Clear()
For i = 1 To form.j - 1
.Series(0).Add(y(i), x(i), clteecolor)
Next
End With For j = 1 To form.j - 1
x(j) = form.a(j, 8)
y(j) = form.a(j, 10)
Next
With AxTChart1
.Series(1).Clear()
For j = 1 To form.j - 1
.Series(1).Add(y(j), x(j), clteecolor)
Next
End With
Dim i As Integer
Dim j As Integer
Dim x(50) As Single
Dim y(50) As Single
For i = 1 To form.j - 1
x(i) = form.a(i, 8)
y(i) = form.a(i, 9)
Next With AxTChart1
.Series(0).Clear()
For i = 1 To form.j - 1
.Series(0).Add(y(i), x(i), clteecolor)
Next
End With For j = 1 To form.j - 1
x(j) = form.a(j, 8)
y(j) = form.a(j, 10)
Next
With AxTChart1
.Series(1).Clear()
For j = 1 To form.j - 1
.Series(1).Add(y(j), x(j), clteecolor)
Next
End With
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货