Hej!
Jag skulle vilja ha lite hjälp med att göra en for loop av detta (se kod) om det är möjligt, har testat själv men får det inte att funka som jag vill. /Mats

min for loop som inte funkade

For i = 1 To 3
With frmDiagram!MSChart1.DataGrid
.GetData rad, i, tidigareVärde, nullFlag
If nullFlag = True Then tidigareVärde = 0
.SetData rad, i, Format(antal + tidigareVärde), (antal + tidigareVärde = 0)
End With
Next i

<code>
Dim tidigareVärde As Double 'Variabel för värde lagrat tidigare i diagrammet
Dim nullFlag As Integer 'Flagga för om värde i diagrammet är Null

frmDiagram!MSChart1.DataGrid.GetData rad, 1, tidigareVärde, nullFlag
If nullFlag = True Then tidigareVärde = 0
frmDiagram!MSChart1.DataGrid.SetData rad, 1, Format(antal + tidigareVärde), (antal + tidigareVärde = 0)

frmDiagram!MSChart1.DataGrid.GetData rad, 2, tidigareVärde, nullFlag
If nullFlag = True Then tidigareVärde = 0
frmDiagram!MSChart1.DataGrid.SetData rad, 2, Format(antalMän + tidigareVärde), (antalMän + tidigareVärde = 0)

frmDiagram!MSChart1.DataGrid.GetData rad, 3, tidigareVärde, nullFlag
If nullFlag = True Then tidigareVärde = 0
frmDiagram!MSChart1.DataGrid.SetData rad, 3, Format(antalKvinnor + tidigareVärde), (antalKvinnor + tidigareVärde = 0)
</code>

Hej
Första korrigering ,inte säker på att det är hela lösningen.

With frmDiagram.MSChart1
For i = 1 To 3
.DataGrid.GetData rad, i, tidigareVärde, nullFlag
If nullFlag = True Then tidigareVärde = 0
.DataGrid.SetData rad, i, Format$(antal + tidigareVärde,"0.0")
Next 'i
End With

'Den här raden ser konstig ut
DataGrid.SetData rad, i, Format(antal + tidigareVärde), (antal + tidigareVärde = 0)

Hej!

Det kan nog funka detta om man spinner vidare, går det även
få med antalmän, antalkvinnor i loopen på någe vis. Det blir fel data som visas om jag bara har med .DataGrid.SetData rad, i, Format(antal + tidigareVärde), False

Skippade (antal + tidigareVärde = 0) satte False istället

object.SetData (row, column, dataPoint, nullFlag)
nullFlag = Integer. Indicates whether or not the data point value is a null.
/Mats
<code>
With frmDiagram!MSChart1
For i = 1 To 3
.DataGrid.GetData rad, i, tidigareVärde, nullFlag
If nullFlag = True Then tidigareVärde = 0
.DataGrid.SetData rad, i, Format(antal + tidigareVärde), False
Next i
End With
</code>

>Format(antal + tidigareVärde)

Format behöver en parameter till
ex Format$(12.56789654,"0.0") 'osv sök hjälp på Format.
Finns hur många som helst varianter att ta till,men ! alltid två argument.

Har skippat format, hittade ingen anledning till varför den behövdes, verkar funger bra utan den. Kodar om ett gammalt vb program gjort i vb 3.0, Försöker återanvända kod det som går, samtidigt förbättra vissa saker. /Mats