Olá colegas, boa noite, preciso de uma ajuda:

 

Tenho um listiview que soma tres valores, exemplo:

Total Compras = 34

Total de Vendas = 8

 

Como colocar esse valores que estão no listview wm um controle mschart.

 

Tá osso, não consigo nem mexer.

 

Henrique

 

 

A propósito, qual a(ou as) ocx ou dll que precisa levar no cliente pra que apareça o gráfico do mschart?

Olá TREZE, obrigado, testei seu exemplo, muito legal, mas não consegui adaptar para o que estou precisando. Vou tentar explicar eu tenho uma consulta em listview veja o modelo do form:

 

data inicial:----------------: 01/01/2012

data final:-----------------: 31/10/2012 OK

 

Ai tenho a listagem

 

data deslocamento Nr Conducoes Nr Autuações Nr de T.C.O  Km Percorridos

01/01/2012                    1                   1                 0             78

05/01/2012                    1                   0                 1             22

 

TOTAL                           2                   1                 1           100

 

BOM AQUI QUE PRECISO JOGAR OS TOTAIS NO GRÁFICO

 

OLHA O MEU CÓDIGO:

-----------------------------------------------::::

Dim dsl1 As New ADODB.Recordset
Dim dsl2 As New ADODB.Recordset
Dim v1 As New ADODB.Recordset
Dim v2 As New ADODB.Recordset
Dim v3 As New ADODB.Recordset
Dim RESP As New ADODB.Recordset
Private Sub CommandButton1_Click()
ListView1.ListItems.Clear
Dim DSQL As String
Dim VSQL As String
Dim VV1 As String
Dim VV2 As String
Dim VV3 As String
Dim dtp As Date
Dim dtp2 As Date
dtp = CDate(Text1.Text)
dtp2 = CDate(Text2.Text)
    DSQL = "select Data_Deslocamento, Nr_Conducoes, Nr_Autuacoes, Nr_TCO, Km_Percorrido from Plantao where Data_Deslocamento BETWEEN #" & Format(dtp, "mm/dd/yyyy") & "# AND #" & Format(dtp2, "mm/dd/yyyy") & "# order by Data_Deslocamento"
    Set dsl1 = Conexao.Execute(DSQL)
    Do While Not dsl1.EOF
    Set lista = ListView1.ListItems.Add(, , dsl1!Data_Deslocamento)
    lista.SubItems(1) = dsl1!Nr_Conducoes
    lista.SubItems(2) = dsl1!Nr_Autuacoes
    lista.SubItems(3) = dsl1!Nr_TCO
    lista.SubItems(4) = Format(dsl1!Km_percorrido, "###,###,##0.00")
    dsl1.MoveNext
    Loop
 
    VV1 = "select SUM(Nr_Conducoes) AS TOTCON, SUM(Nr_Autuacoes) AS TOTAU, SUM(Nr_TCO) AS TOTTCO, SUM(Km_percorrido) AS KMPER from Plantao where Data_Deslocamento BETWEEN #" & Format(dtp, "mm/dd/yyyy") & "# AND #" & Format(dtp2, "mm/dd/yyyy") & "# "
    Set v1 = Conexao.Execute(VV1)
      '--------------------------------------------------------
    For i = 1 To 2
    Set lista = ListView1.ListItems.Add(, , "")
    Next i
    Set lista = ListView1.ListItems.Add(, , "T O T A I S -->>:")
    '============
    lista.SubItems(1) = v1!TOTCON
    lista.SubItems(2) = v1!TOTAU
    lista.SubItems(3) = v1!TOTTCO
    lista.SubItems(4) = Format(v1!KMPER, "###,###,##0.00")
End Sub

 

PARA O J.CARLOS.

 

Na verdade estou fazendo este programa para o meu departamento mesmo.

 

OBRIGADO a vocês.