
02-19-2004, 03:30 AM
|
|
Regular
|
|
Join Date: Aug 2003
Location: Nko****owa Loc,Limpopo Pr
Posts: 87
|
|
Extending MsChart Graph Problem
|
Hi Guys,
I am plotting on the Graph the data from my Database,so If I have five rows that I want to plot on my Graph, I would like my graph to extend its width which I got it,now my problem is when I plot values on a graph,It plot first value on the right columncount and plot the second value to the next columncount until it finish,What do I miss Here,Please help ? this is the Function I call to draw my Graph after I have loaded my Data into the MsFlexiGrid table.
Public Sub FillGraph()
Dim r, i As Integer
'MsChart1.RowCount = RowNumber
If RowNumber > 1 Then
MsChart1.Width = RowNumber * 5290.25
Else
MsChart1.Width = RowNumber * 5295
End If
MsChart1.Left = MsChart1.Width
For r = 1 To RowNumber
With MsChart1
.Column = 1
.RowCount = r
For PointValue = 1 To 12
ResultGrid.Col = PointValue + 4
stima1 = ResultGrid.Text
MsChart1.ColumnCount = PointValue
MsChart1.Data = stima1
Next PointValue
End With
Next r
MsChart1.Left = -103 + MsChart1.Width - MsChart1.Width
MsChart1.Legend.Location.LocationType = VtChLocationTypeLeft
End Sub
Please respond if you don't understand any of this problem.
Thanx in advance.
|
__________________
"This World would not be like how it is today if People were not sharing the information,A candle does not loose energy by lighting another candle."
|