para Semper de dradana

dradana2003
18 de Septiembre del 2004
estoy trabajando con los graficos y tengo dificultad para que una matris me lea los datos, he trabajado con este codigo y me da problerma porqwue solo me llee una colunmna

Dim avarDatos(1 To 12, 1 To 2) As Variant
Dim intCol As Integer
Dim intFila As Integer

Adodc1.Refresh

With Adodc1.Recordset
.MoveFirst


For intCol = 1 To 2
For intFila = 1 To 12

If intCol = 1 Then



avarDatos(intFila, intCol) = .Fields("AProgr")

.MoveNext

Else


.MoveFirst

avarDatos(intFila, intCol) = .Fields("AAten")


.MoveNext



End If




Next intFila

Next intCol



End With

MSChart1.ChartData = avarDatos

Si me pudiareas dar alguna idea para arreglar esto

>Gracvias

semper
18 de Septiembre del 2004
Esto debe funcionarte ...

Dim avarDatos(1 To 12, 1 To 2) As Variant
Dim intFila As Integer

Adodc1.Refresh

With Adodc1.Recordset
.MoveFirst

For intFila = 1 To 12

avarDatos(intFila, 1) = .Fields("AProgr")
avarDatos(intFila, 2) = .Fields("AAten")

.MoveNext

Next intFila

End With

MSChart1.ChartData = avarDatos