WENCES ( AYUDA CON MSCHART)
Publicado por Hugo R. (107 intervenciones) el 22/08/2003 02:25:03
Wences, ojala puedas ayudarme..? ya mas o menos me sale la grafica pero hay algunos errores..!! ya tengo la forma, es un archivo que tiene 3 valores que son (ENERO,FEBRERO Y MARZO), son numericos y los que quiero graficar te pongo el codigo..!!
*** este es el codigo **
LOCAL INCOUNT, INROW
INCOUNT = 1
INROW = 1
CONTAR = 3
select VISTA_GRAFICA1
=REQUERY ()
With thisform.olecontrol1.object
.row = 0
.chartType = 1
.ColumnCount = INROW
.RowCount = INCOUNT
scan
FOR X = 1 TO CONTAR
IF X = 1 THEN
.Row = 1
.ColumnCount = 1
.rowlabel = VISTA_GRAFICA1.INSCRIPCION
.Data = VISTA_GRAFICA1.INSCRIPCION
ENDIF
IF X = 2 THEN
.Row = 1
.ColumnCount = 2
.rowlabel = VISTA_GRAFICA1.MATERIAL
.Data = VISTA_GRAFICA1.MATERIAL
ENDIF
IF X = 3 THEN
.Row = 1
.ColumnCount = 3
.rowlabel = VISTA_GRAFICA1.LIBROS
.Data = VISTA_GRAFICA1.LIBROS
ENDIF
NEXT X
endscan
ENDWITH
ThisForm.Olecontrol1.Refresh
Nota: al jecutar o correr la forma me da un errror (OLE IDISPATCH EXCEPTION CODE 0 FROM MSCHART: EL INDICE ESTA FUERA DE LOS LIMITES), lo curioso que al IGNORAR EL ERROR , me da la grafica pero me da una sola BARRA debiendo ser tres BARRAS (ENERO-FEBRERO-MARZO).
Te agradecere donde estoy mal.!! Gracias por la ayuda..!!
*** este es el codigo **
LOCAL INCOUNT, INROW
INCOUNT = 1
INROW = 1
CONTAR = 3
select VISTA_GRAFICA1
=REQUERY ()
With thisform.olecontrol1.object
.row = 0
.chartType = 1
.ColumnCount = INROW
.RowCount = INCOUNT
scan
FOR X = 1 TO CONTAR
IF X = 1 THEN
.Row = 1
.ColumnCount = 1
.rowlabel = VISTA_GRAFICA1.INSCRIPCION
.Data = VISTA_GRAFICA1.INSCRIPCION
ENDIF
IF X = 2 THEN
.Row = 1
.ColumnCount = 2
.rowlabel = VISTA_GRAFICA1.MATERIAL
.Data = VISTA_GRAFICA1.MATERIAL
ENDIF
IF X = 3 THEN
.Row = 1
.ColumnCount = 3
.rowlabel = VISTA_GRAFICA1.LIBROS
.Data = VISTA_GRAFICA1.LIBROS
ENDIF
NEXT X
endscan
ENDWITH
ThisForm.Olecontrol1.Refresh
Nota: al jecutar o correr la forma me da un errror (OLE IDISPATCH EXCEPTION CODE 0 FROM MSCHART: EL INDICE ESTA FUERA DE LOS LIMITES), lo curioso que al IGNORAR EL ERROR , me da la grafica pero me da una sola BARRA debiendo ser tres BARRAS (ENERO-FEBRERO-MARZO).
Te agradecere donde estoy mal.!! Gracias por la ayuda..!!
Valora esta pregunta


0