Jump to content
Software FX Community

Special LineChart


Recommended Posts

If I only use the y-Values, my linechart is okay (see Pic 1). As soon as I use the OpenDataEx for XValues I only have one x-Point left... (see Pic 2)

What am I doing wrong?

This is a part of my code:

.OpenDataEx CHARTFX_COD_VALUES,1,5

.OpenDataEx CHARTFX_COD_XVALUES,1,5

iRow = 0

do until rs.eof

.Series(0).YValue(iRow) = ChartValue("" & rs("prValue1").Value)

' if "" & rs("prValue2").Value <> "" then

' .Series(0).XValue(iRow) = ChartValue("" & rs("prValue2").Value)

' else

' .Series(0).XValue(iRow) = ChartValue("" & rs("prValue1").Value)

' end if

iRow = iRow + 1

rs.MoveNext

if rs.EOF then exit do

loop

.Axis(CHARTFX_AXIS_Y).Max = 0.1

.Axis(CHARTFX_AXIS_Y).Min = 0.05

.Axis(CHARTFX_AXIS_Y).Step = 0.005

.CloseData CHARTFX_COD_VALUES

.CloseData CHARTFX_COD_XVALUES

Link to post
Share on other sites

when I uncomment those 5 lines in my code, the chart comes out as follows. Only the rows 1 and 4 should have such a xvalue. Why does my chart have only one point on the x-axis?

here is my resultset. note that rows 2, 3 and 5 don't have a value in the second column.

 

Link to post
Share on other sites

I changed the initializing of the chart, I make it manually now instead of using the template. The values are multiplied by 100 now, so you can see that the ordinary line is ok. But the thing with the xvalues doesn't work yet! there is no difference in the chart wether I set them or not.

Sub OnFormat

set rs = RecordSet()

if rs.EOF then exit sub

with rpt.Sections("PageHeader").Controls("ChartFX1")

'initialze chart

.ToolBar =

False

.PaletteBar =

False

.MenuBar =

False

.PatternBar =

False

.DataEditor =

False

.Border =

False

.BorderStyle = 0

.ClearData 1

iRow = 0

.OpenDataEx CHARTFX_COD_VALUES,1,iRow + 1

.OpenDataEx CHARTFX_COD_XVALUES,1,iRow + 1

do until rs.eof

.Series(0).YValue(iRow) = ChartValue("" & rs("prValue1").Value)

.Axis(CHARTFX_AXIS_X).Label(iRow) = "" & rs("txValue").Value

if "" & rs("prValue2").Value <> "" then

.Series(0).XValue(iRow) = ChartValue("" & rs("prValue2").Value)

else

.Series(0).XValue(iRow) = ChartValue("" & rs("prValue1").Value)

end if

iRow = iRow + 1

rs.MoveNext

if rs.EOF then exit do

loop

.CloseData CHARTFX_COD_VALUES

.CloseData CHARTFX_COD_XVALUES

.Series(0).Gallery = 1

'Line

.Chart3D =

False

.RGB2DBk = RGB(255,255,255)

.RGBBk = RGB(255,255,255)

.Grid = 1

'Horizontal

.Axis(CHARTFX_AXIS_Y).Max = 8

.Axis(CHARTFX_AXIS_Y).Min = 5

.Axis(CHARTFX_AXIS_Y).Step = 0.5

.Axis(CHARTFX_AXIS_Y).Decimals = 2

.Axis(CHARTFX_AXIS_X).Decimals = 2

end with

rs.movefirst

End

Sub

 

Link to post
Share on other sites
  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...