WebRoot/FusionChartsFree/Code/VBNET/ArrayExample/MultiSeries.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports InfoSoftGlobal
Partial Class ArrayExample_MultiSeries
    Inherits System.Web.UI.Page

    Public Function CreateChart() As String

        'In this example, we plot a multi series chart from data contained
        'in an array. The array will have three columns - first one for data label (product)
        'and the next two for data values. The first data value column would store sales information
        'for current year and the second one for previous year.

        'Let's store the sales data for 6 products in our array. We also store
        'the name of products. 
        Dim arrData(6, 3) As String
        'Store Name of Products
        arrData(0, 1) = "Product A"
        arrData(1, 1) = "Product B"
        arrData(2, 1) = "Product C"
        arrData(3, 1) = "Product D"
        arrData(4, 1) = "Product E"
        arrData(5, 1) = "Product F"
        'Store sales data for current year
        arrData(0, 2) = "567500"
        arrData(1, 2) = "815300"
        arrData(2, 2) = "556800"
        arrData(3, 2) = "734500"
        arrData(4, 2) = "676800"
        arrData(5, 2) = "648500"
        'Store sales data for previous year
        arrData(0, 3) = "547300"
        arrData(1, 3) = "584500"
        arrData(2, 3) = "754000"
        arrData(3, 3) = "456300"
        arrData(4, 3) = "754500"
        arrData(5, 3) = "437600"

        'Now, we need to convert this data into multi-series XML. 
        'We convert using string concatenation.
        'strXML - Stores the entire XML
        'strCategories - Stores XML for the <categories> and child <category> elements
        'strDataCurr - Stores XML for current year's sales
        'strDataPrev - Stores XML for previous year's sales
        Dim strXML As String, strCategories As String, strDataCurr As String, strDataPrev As String, i As Integer

        'Initialize <graph> element
        strXML = "<graph caption='Sales by Product' numberPrefix='$' decimalPrecision='0' >"

        'Initialize <categories> element - necessary to generate a multi-series chart
        strCategories = "<categories>"

        'Initiate <dataset> elements
        strDataCurr = "<dataset seriesName='Current Year' color='AFD8F8'>"
        strDataPrev = "<dataset seriesName='Previous Year' color='F6BD0F'>"

        'Iterate through the data	
        For i = 0 To UBound(arrData) - 1
            'Append <category name='...' /> to strCategories
            strCategories = strCategories & "<category name='" & arrData(i, 1) & "' />"
            'Add <set value='...' /> to both the datasets
            strDataCurr = strDataCurr & "<set value='" & arrData(i, 2) & "' />"