CD_DATA and CD_PERSERIESATTRIBUTES

[Software FX]

Hello, 

Your code probably needs to include:  DC_DATA or CD_PERSERIESATTRIBUTES 

Even though you are clearing all the data, some of the series attributes may remain causing your chart created from the next recordset to fail.

-----Original Message----- 

From: Adam Furgal [ mailto:afurgal@online-can.com] 

Posted At: Thursday, July 13, 2000 2:57 PM 

Posted To: General 

Conversation: Run-time error '-2147417948' (80010180)': Method 

'CloseData' of object 'IChartFX' failed 

Subject: Run-time error '-2147417948' (80010180)': Method 'CloseData' of 

object 'IChartFX' failed 

Hi, 

I have a chartFX 98 object on a form in VB 6.0 SP3.  I am using it to make a 

bunch of charts, then export them to graphic files. 

I have my one object and every time I need a new chart, I just do a 

cleardata, then set all of the points on the chart to the points in my new 

recordset.  The problem I have been having lately, is the following error: 

Run-time error '-2147417948' (80010180)': 

Method 'CloseData' of object 'IChartFX' failed 

This error seems to be almost random, but there are certain recordsets that 

seem to give the error more often.  I am not binding the recordset to the 

chart, but manually setting hte points: 

.OpenDataEx COD_VALUES, 3, rsData.RecordCount 

            While Not rsData.EOF 

                'Set the high value 

                If IsEmptyString(rsData.Fields("daily_high")) Or 

(rsData.Fields("daily_high") = 0) Then 

                    .ValueEx(HLC_HIGH, iLcv) = 

rsData.Fields("settlement_price") 

                Else 

                    .ValueEx(HLC_HIGH, iLcv) = rsData.Fields("daily_high") 

                End If 

                'Set the low value 

                If IsEmptyString(rsData.Fields("daily_low")) Or 

(rsData.Fields("daily_low") = 0) Then 

                    .ValueEx(HLC_LOW, iLcv) = 

rsData.Fields("settlement_price") 

                Else 

                    .ValueEx(HLC_LOW, iLcv) = rsData.Fields("daily_low") 

                End If 

                'Set the close value 

                .ValueEx(HLC_CLOSE, iLcv) = 

rsData.Fields("settlement_price") 

                'Label the Y axis 

                .Axis(AXIS_X).Label(iLcv) = 

Format(rsData.Fields("Eff_Date"), "mmm d yyyy") 

                iLcv = iLcv + 1 

                ProgressBarChart.Value = iLcv / rsData.RecordCount * 100 

                sLastDate = Format(rsData.Fields("Eff_Date"), "mmm d yyyy") 

                rsData.MoveNext 

            Wend 

            .CloseData COD_VALUES 

I someone can help!