WebRoot/FusionChartsFree/Code/VBNET/ArrayExample/Stacked.aspx

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

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

<%@ Page Language="VB" %>
<%@ Import Namespace="InfoSoftGlobal"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">
    Public Function CreateChart() As String
        'In this example, we plot a Stacked chart from data contained
        'in an array. The array will have three columns - first one for Quarter Name
        'and the next two for data values. The first data value column would store sales information
        'for Product A and the second one for Product B.
		
        Dim arrData(4, 3) As String
        'Store Name of Products
        arrData(0, 1) = "Quarter 1"
        arrData(1, 1) = "Quarter 2"
        arrData(2, 1) = "Quarter 3"
        arrData(3, 1) = "Quarter 4"
        'Sales data for Product A
        arrData(0, 2) = "567500"
        arrData(1, 2) = "815300"
        arrData(2, 2) = "556800"
        arrData(3, 2) = "734500"
        'Sales data for Product B
        arrData(0, 3) = "547300"
        arrData(1, 3) = "594500"
        arrData(2, 3) = "754000"
        arrData(3, 3) = "456300"

        '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
        'strDataProdA - Stores XML for current year's sales
        'strDataProdB - Stores XML for previous year's sales
        Dim strXML As String, strCategories As String, strDataProdA As String, strDataProdB As String, i As Integer
	
        'Initialize <graph> element
        strXML = "<graph caption='Sales' numberPrefix='$' formatNumberScale='0' decimalPrecision='0'>"
	
        'Initialize <categories> element - necessary to generate a stacked chart
        strCategories = "<categories>"
	
        'Initiate <dataset> elements
        strDataProdA = "<dataset seriesName='Product A' color='AFD8F8'>"
        strDataProdB = "<dataset seriesName='Product B' 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
            strDataProdA = strDataProdA & "<set value='" & arrData(i, 2) & "' />"
            strDataProdB = strDataProdB & "<set value='" & arrData(i, 3) & "' />"
        Next
	
        'Close <categories> element
        strCategories = strCategories & "</categories>"
	
        'Close <dataset> elements
        strDataProdA = strDataProdA & "</dataset>"