AJUDA COM PROBLEMAS - MSCHART

BYDUMORAES 31/05/2007 14:48:54
#219137
Pessoal sei que aqui no forum tem varios exemplos de uso de MSchart para gerar graficos mas ja tentei de todas as formas mas nao consigo exibir os dados da forma necessaria, segue a abaixo o codigo que estou utilizando e a forma que me mostra:



[c]Private Sub Command4_Click()
dataini = Format$(text1, "yyyy/m/d")
datafim = Format$(text2, "yyyy/m/d")

If Not empresa = "Todas" Then

Set rsg = cnn.Execute("select sum(valores) as total,mes,empresas from graficos where empresas = '" & empresa & "' group by mes,empresas")
Else
Set rsg = cnn.Execute("select sum(valores) as total,mes,empresas from graficos  group by mes,empresas")

End If

If Not rsg.EOF Then

Numpoint = rsg.RecordCount

ReDim chrtArray(1 To rsg.RecordCount, 1 To 4)

MSChart1.ShowLegend = True
MSChart1.ChartType = VtChChartType2dLine

MSChart1.Title.Text = "Titulo do grafico"

MSChart1.Plot.Axis(VtChAxisIdX).AxisTitle.Text = ""
MSChart1.Plot.Axis(VtChAxisIdY).AxisTitle.Text = "Meses"

MSChart1.FootnoteText = ""

NumPoints = rsg.RecordCount

For X = 1 To NumPoints
    chrtArray(X, 1) = Left(rsg!mes, 3)
    chrtArray(X, 2) = rsg!total
    chrtArray(X, 3) = rsg!empresas
    rsg.MoveNext
Next X

With MSChart1
    .ChartData = chrtArray
    .ColumnCount = 4
    .RowCount = NumPoints  ' **** incluida esta linha
End With

Else
MsgBox "Nenhuma informação encontrada para esta consulta!", vbCritical
Exit Sub
End If
End Sub


[/c]

Nesta imagem aparece se escolho uma empresa para mostrar



Nesta aparece se escolho TODAS, dai vira uma zona.

img]http://www.vimatur.com.br/ftp/graficoTodasEmpresa.jpg[/img]


O que eu pensei que esse grafico apresentaria: no lado esquerdo mostraria os Valores mostrados na base da primeira imagem, e na base os meses e se fosse todas as empresas, mostraria as mesmas ou na esquerda ou na base do grafico.

Alguem poderia me Orientar pois nunca usei este componente e os exemplos encontrados nao estao me ajudando muito.

grato.]
BYDUMORAES 31/05/2007 14:49:54
#219138

pessoal a segunda imagem é esta:
Tópico encerrado , respostas não são mais permitidas
Voltar