- -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