Software FX Posted July 14, 2000 Report Share Posted July 14, 2000 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! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.