图表例子
Public olecc
#if .f.
Local olecc as msgraph.application
#endif
Local loChart as msgraph.chart
olecc = createob("msgraph.application")
olecc.Visible = .t.
olecc.PlotBy = 2 && xlColumns
olecc.DataSheet.Cells(1,1) = "第度季"
olecc.DataSheet.Cells(1,2) = "第一度季"
olecc.DataSheet.Cells(1,3) = "第二度季"
olecc.DataSheet.Cells(2,1) = "test"
olecc.DataSheet.Cells(2,2) = 100
olecc.DataSheet.Cells(2,3) = 200
loChart=olecc.Chart()
loChart.ChartType= 65 && xlLineMarkers