Hi @
Mashiane zip project db and like this ,Thank You
Public Sub ConnectPage()
chart1.Initialize(page, "chart1")
chart1.XAxisTitle = "106年統計 x"
chart1.YAxisTitle = "106y"
chart1.YAxisLabelFormat = "{value}%"
chart1.YAxisLabelFormatLocale = True
chart1.LegendVisible = True
chart1.LegendPosition = chart1.EnumLegendPosition.top
chart1.EnableZooming = False
chart1.enableCanvasRendering = False
chart1.toolTipInitialize = False
chart1.CommonSeriesOptions.markershape = "circle"
chart1.CommonSeriesOptions.stype = chart1.EnumType.spline
chart1.CommonSeriesOptions.EnableAnimation = False
chart1.CommonSeriesOptions.markerdatalabelsvisible = False
chart1.CommonSeriesOptions.MarkerVisible = False
chart1.CommonSeriesOptions.ToolTipVisible = False
chart1.CommonSeriesOptions.Width = 3
RefreshOnLoad_chart1(chart1)
page.Cell(2,1).AddComponent(chart1.ABMComp)
AdminAccess
page.Refresh ' IMPORTANT
' NEW, because we use ShowLoaderType=ABM.LOADER_TYPE_MANUAL
page.FinishedLoading 'IMPORTANT
page.RestoreNavigationBarPosition
End Sub
'Refresh the contents of an SyncfusionChart in runtime
Private Sub RefreshOnLoad_chart1(ochart805 As SyncfusionChart)
'Define list to store the results of the query
Dim results As List
Dim resCnt As Int
Dim resTot As Int
Dim resMap As Map
'Read arguments from LocalStorage (if any)
' Dim Year As String = ABMShared.SessionStorageRead(page, "Year")
' Dim Year As String ="106"
page.Pause
'Get connection from current pool if MySQL/MSSQL
Dim SQL As SQL = ABMShared.SQLGet
'Get the records as a list of maps from the db
results = ABMShared.SQLExecuteMaps(SQL,"select * from IYMAnalysisSet", Null)
'Close the connection to the database
ABMShared.SQLClose(SQL)
'Loop throught each record read and process it
resTot = results.size - 1
For resCnt = 0 To resTot
'Get the record map
resMap = results.get(resCnt)
'create the series apract
Dim ser01apract As SeriesObj
ochart805.InitializeSeries(ser01apract)
ser01apract.stype = ochart805.EnumType.line
ser01apract.name = resMap.GetDefault("apract","")
ser01apract.tooltipvisible = False
ser01apract.width = 3
ser01apract.EnableAnimation = False
ser01apract.markershape = "circle"
ser01apract.MarkerVisible = True
ser01apract.markerdatalabelsvisible = True
'Read the fields to draw...
Dim apract As String = resMap.GetDefault("apract", "0")
'Add data to the chart
ochart805.AddXY(ser01apract,"apract",apract)
ochart805.AddSeries(ser01apract)
'create the series mayacc
Dim ser02mayacc As SeriesObj
ochart805.InitializeSeries(ser02mayacc)
ser02mayacc.stype = ochart805.EnumType.line
ser02mayacc.name = resMap.GetDefault("mayacc","")
ser02mayacc.tooltipvisible = False
ser02mayacc.width = 3
ser02mayacc.EnableAnimation = False
ser02mayacc.markershape = "circle"
ser02mayacc.MarkerVisible = True
ser02mayacc.markerdatalabelsvisible = False
'Read the fields to draw...
Dim mayacc As String = resMap.GetDefault("mayacc", "0")
'Add data to the chart
ochart805.AddXY(ser02mayacc,"mayacc",mayacc)
ochart805.AddSeries(ser02mayacc)
'create the series junacc
Dim ser03junacc As SeriesObj
ochart805.InitializeSeries(ser03junacc)
ser03junacc.stype = ochart805.EnumType.line
ser03junacc.name = resMap.GetDefault("junacc","")
ser03junacc.tooltipvisible = False
ser03junacc.width = 3
ser03junacc.EnableAnimation = False
ser03junacc.markershape = "circle"
ser03junacc.MarkerVisible = True
ser03junacc.markerdatalabelsvisible = True
'Read the fields to draw...
Dim junacc As String = resMap.GetDefault("junacc", "0")
'Add data to the chart
ochart805.AddXY(ser03junacc,"junacc",junacc)
ochart805.AddSeries(ser03junacc)
'create the series julacc
Dim ser04julacc As SeriesObj
ochart805.InitializeSeries(ser04julacc)
ser04julacc.stype = ochart805.EnumType.line
ser04julacc.name = resMap.GetDefault("julacc","")
ser04julacc.tooltipvisible = False
ser04julacc.width = 3
ser04julacc.EnableAnimation = False
ser04julacc.markershape = "circle"
ser04julacc.MarkerVisible = True
ser04julacc.markerdatalabelsvisible = True
'Read the fields to draw...
Dim julacc As String = resMap.GetDefault("julacc", "0")
'Add data to the chart
ochart805.AddXY(ser04julacc,"julacc",julacc)
ochart805.AddSeries(ser04julacc)
Next
page.Resume
End Sub
