Graficos en VFP
Publicado por ainhoa (1 intervención) el 20/04/2001 14:25:56
Tengo un programa de Visual Fox Pro que me saca solo algunos datos y ademas los coje mal.
Este es el programa:
do prueba1
return
**************************************************
procedure prueba1
public pantalla
pantalla = createobject("form")
pantalla.addobject("objeto", "olecontrol", "msgraph.chart.8")
pantalla.objeto.top = 0
pantalla.objeto.left = 0
pantalla.objeto.height = pantalla.height
pantalla.objeto.width = pantalla.width
pantalla.visible = .t.
pantalla.objeto.visible = .t.
pantalla.lockscreen = .t.
pantalla.objeto.object.application.chart.charttype = -4100
pantalla.objeto.object.application.datasheet.range("00").value = ""
pantalla.objeto.object.application.datasheet.range("01").value = "Puntuaciones"
*pantalla.objeto.object.application.datasheet.range("02").value = "Luis"
pantalla.objeto.object.application.datasheet.range("A0").value = "Enero"
pantalla.objeto.object.application.datasheet.range("A1").value = 20
*pantalla.objeto.object.application.datasheet.range("A2").value = 40
pantalla.objeto.object.application.datasheet.range("B0").value = "Febrero"
pantalla.objeto.object.application.datasheet.range("B1").value = 40
*pantalla.objeto.object.application.datasheet.range("B2").value = 55
pantalla.objeto.object.application.datasheet.range("C0").value = "Marzo"
pantalla.objeto.object.application.datasheet.range("C1").value = 60
*pantalla.objeto.object.application.datasheet.range("C2").value = 55
pantalla.objeto.object.application.datasheet.range("D0").value = "Abril"%0
Este es el programa:
do prueba1
return
**************************************************
procedure prueba1
public pantalla
pantalla = createobject("form")
pantalla.addobject("objeto", "olecontrol", "msgraph.chart.8")
pantalla.objeto.top = 0
pantalla.objeto.left = 0
pantalla.objeto.height = pantalla.height
pantalla.objeto.width = pantalla.width
pantalla.visible = .t.
pantalla.objeto.visible = .t.
pantalla.lockscreen = .t.
pantalla.objeto.object.application.chart.charttype = -4100
pantalla.objeto.object.application.datasheet.range("00").value = ""
pantalla.objeto.object.application.datasheet.range("01").value = "Puntuaciones"
*pantalla.objeto.object.application.datasheet.range("02").value = "Luis"
pantalla.objeto.object.application.datasheet.range("A0").value = "Enero"
pantalla.objeto.object.application.datasheet.range("A1").value = 20
*pantalla.objeto.object.application.datasheet.range("A2").value = 40
pantalla.objeto.object.application.datasheet.range("B0").value = "Febrero"
pantalla.objeto.object.application.datasheet.range("B1").value = 40
*pantalla.objeto.object.application.datasheet.range("B2").value = 55
pantalla.objeto.object.application.datasheet.range("C0").value = "Marzo"
pantalla.objeto.object.application.datasheet.range("C1").value = 60
*pantalla.objeto.object.application.datasheet.range("C2").value = 55
pantalla.objeto.object.application.datasheet.range("D0").value = "Abril"%0
Valora esta pregunta


0