I need Multi Line Chart
Posted: Tue Jun 17, 2014 2:15 pm
Hi~ I need Multi line chart therefore ASP codeing in below
How can i fix it.. Help me..
-------------------------------------
Set Chart1 = CreateObject("TeeChart.TChart")
Chart1.Legend.Visible=false
Chart1.Header.Text(0)= tag_no
Chart1.Header.Font.Color=vbBlack
Chart1.Header.Font.Bold=True
Chart1.AddSeries(Line)
Chart1.Aspect.View3D=False
Chart1.Panel.Gradient.Visible=false
Chart1.Panel.Color=black
Chart1.Panel.BevelOuter=1
Chart1.Panel.BevelWidth=2
Chart1.Axis.Bottom.Labels.Angle=0
Chart1.AddSeries(0)
Chart1.AddSeries(1)
Chart1.AddSeries(2)
setday = res("sday")
data = res("data")
Chart1.Series(0).Add 100, setday, clTeeColor
Chart1.Series(0).Add 400, setday, clTeeColor
Chart1.Series(0).Add 300, setday, clTeeColor
Chart1.Series(1).Add 500, setday, clTeeColor
Chart1.Series(1).Add 600, setday, clTeeColor
Chart1.Series(1).Add 400, setday, clTeeColor
Chart1.Series(2).Add 50, setday, clTeeColor
Chart1.Series(2).Add 200, setday, clTeeColor
Chart1.Series(2).Add 10, setday, clTeeColor
Response.BinaryWrite (Chart1.Export.asNative.SaveToStream(True))
-------------------------------------
How can i fix it.. Help me..
-------------------------------------
Set Chart1 = CreateObject("TeeChart.TChart")
Chart1.Legend.Visible=false
Chart1.Header.Text(0)= tag_no
Chart1.Header.Font.Color=vbBlack
Chart1.Header.Font.Bold=True
Chart1.AddSeries(Line)
Chart1.Aspect.View3D=False
Chart1.Panel.Gradient.Visible=false
Chart1.Panel.Color=black
Chart1.Panel.BevelOuter=1
Chart1.Panel.BevelWidth=2
Chart1.Axis.Bottom.Labels.Angle=0
Chart1.AddSeries(0)
Chart1.AddSeries(1)
Chart1.AddSeries(2)
setday = res("sday")
data = res("data")
Chart1.Series(0).Add 100, setday, clTeeColor
Chart1.Series(0).Add 400, setday, clTeeColor
Chart1.Series(0).Add 300, setday, clTeeColor
Chart1.Series(1).Add 500, setday, clTeeColor
Chart1.Series(1).Add 600, setday, clTeeColor
Chart1.Series(1).Add 400, setday, clTeeColor
Chart1.Series(2).Add 50, setday, clTeeColor
Chart1.Series(2).Add 200, setday, clTeeColor
Chart1.Series(2).Add 10, setday, clTeeColor
Response.BinaryWrite (Chart1.Export.asNative.SaveToStream(True))
-------------------------------------