Hi,
I have
*CostPerSale table:*
City varchar(50)
Type varchar(150)
Sale float
Sample data
Chennai CostPerSale 750.0
Chennai CostPerDownload 850.0
When Chennai is selected i want to show 2 angular charts
CostPerSale
CostPerDownload
The code that i have is
<tr>
<td>
<div align="center">
<asp:Literal ID="lit_CostPerVisit" runat="server"></asp:Literal>
</div>
</td>
</tr>
Imports
System.Data
Imports System.Drawing
Imports System.Web
Imports
System.Web.SessionState
Imports
System.Web.UI
Imports
System.Web.UI.WebControls
Imports
System.Web.UI.HtmlControls
Imports
System.Data.SqlClient
Imports
InfoSoftGlobal
Protected
Sub ddl_Year_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddl_Year.SelectedIndexChanged
If (ddl_Year.SelectedValue <> "0") Then
lit_CostPerVisit.Text = CostPerVisit(ViewState(
"Year"))
End If
Public Function CostPerVisit(ByVal ddlYear As String) As String
Dim DtCostPerVisit As DataTable
Dim str_ColorRangeStart, str_ColorRangeEnd, str_Min, str_Min1, str_Max, str_Dial, str_DialEnd As String
str_DialValue =
""
'New Code
Dim strxml As String
Try
DtCostPerVisit = clsHelper.fnGetCostPerVisit(ddlYear)
If (DtCostPerVisit.Rows.Count > 0) Then
strxml =
"<chart setAdaptiveMin='0' lowerLimit='0' upperLimit='750' lowerLimitDisplay='$0' upperLimitDisplay='$750' gaugeStartAngle='180' gaugeEndAngle='0' palette='1' numberPrefix='$' tickValueDistance='20' showValue='1' refreshInterval='60' placeValuesInside='1' majorTMNumber='4' minorTMNumber='3'><colorRange><color minValue='0' maxValue='750' code='cccccc'/></colorRange><dials >"
'str_Dial = "<dials>"
' strxml += "<dials>"
For Each DRow As DataRow In DtCostPerVisit.Rows
If (DRow("Type").ToString().Trim() = "CostPerVisit") Then
strxml +=
"<dial value='" & DRow("Cost").ToString().Trim() & "' valueX='155' borderAlpha='0' rearExtension='6' baseWidth='6' borderColor='ffffff' showValue='0' borderalpha='50/>"
End If
Next
strxml +=
"</dials>" & vbCrLf
strxml +=
"</chart>"
Return FusionCharts.RenderChartHTML("Charts/AngularGuage.swf", "", strxml, "chart1", "200", "150", False)
End If
Catch ex As SmsException
fnDisplayError(
"")
ExceptionManager.Publish(ex)
End Try
End Function
I am getting the correct xml string created but no graph shown. Need Help
Thanks
S.Guhananth
