C# Programming
07-02-2010, 01:50 AM
Hi all,
Could you please let me know which property of the chart object will allow me to format values in Currency?
I want to have my Y axis to show Currency Amonut Like ($100,$200,%300 etc...)
Here is my code..
How can i format the chart control so that the revenue apprears in £ sign?
At the moment its jUst showing Numbers not having a $ sign.
Here is Code:
With dt
.Columns.Add(New DataColumn("Hours", System.Type.GetType("System.String")))
.Columns.Add(New DataColumn("Revenue", System.Type.GetType("System.String")))
.PrimaryKey = New DataColumn() {dt.Columns("Hour")}
End With
Using con As SqlConnection = New SqlConnection(Session("ConnectionString").ToString)
Using com As SqlCommand = New SqlCommand(strCommand, con)
con.Open()
Dim i As Integer = 0
Using reader As SqlDataReader = com.ExecuteReader
While reader.Read()
' Dim sSeries As String = reader(0).ToString.Trim.
Dim sSeries As String = reader.GetName(i)
Dim dr As DataRow
Dim sData As String = ConvertToString(reader(0))
If sData = "Total" Then
Else
' For f As Integer = 1 To reader.
dr = dt.NewRow()
'dr("Hour") = reader.GetName(i)
Try
dr("Hours") = Convert.ToString(reader(0))
dr("Revenue") = Convert.ToDecimal(reader(1))
Catch ex As Exception
End Try
dt.Rows.Add(dr)
dt.AcceptChanges()
End If
End While
Dim Count As Integer = dt.Rows.Count
If Count = 0 Then
Exit Sub
End If
With Chart1
.Titles.Add("Revenue Generated by Hour and Channel ")
.Series.Clear()
.Series.Add("Revenue")
.ChartAreas.Clear()
.ChartAreas.Add("ChartArea1")
.ChartAreas("ChartArea1").AxisX.Title = "HOUR"
.ChartAreas("ChartArea1").AxisY.Title = "Revenue"
.Series("Revenue").ChartType = SeriesChartType.Column
.Series("Revenue").IsValueShownAsLabel = True
.DataSource = dt
.Series("Revenue").XValueMember = "Hours"
.Series("Revenue").AxisLabel = "Revenue"
.Series("Revenue").XAxisType = AxisType.Primary
.Series("Revenue").YValueMembers = "Revenue"
.DataBind()
.Legends.Add("Legend1")
.AlignDataPointsByAxisLabel()
End With
modified on Thursday, July 1, 2010 3:18 PM
Could you please let me know which property of the chart object will allow me to format values in Currency?
I want to have my Y axis to show Currency Amonut Like ($100,$200,%300 etc...)
Here is my code..
How can i format the chart control so that the revenue apprears in £ sign?
At the moment its jUst showing Numbers not having a $ sign.
Here is Code:
With dt
.Columns.Add(New DataColumn("Hours", System.Type.GetType("System.String")))
.Columns.Add(New DataColumn("Revenue", System.Type.GetType("System.String")))
.PrimaryKey = New DataColumn() {dt.Columns("Hour")}
End With
Using con As SqlConnection = New SqlConnection(Session("ConnectionString").ToString)
Using com As SqlCommand = New SqlCommand(strCommand, con)
con.Open()
Dim i As Integer = 0
Using reader As SqlDataReader = com.ExecuteReader
While reader.Read()
' Dim sSeries As String = reader(0).ToString.Trim.
Dim sSeries As String = reader.GetName(i)
Dim dr As DataRow
Dim sData As String = ConvertToString(reader(0))
If sData = "Total" Then
Else
' For f As Integer = 1 To reader.
dr = dt.NewRow()
'dr("Hour") = reader.GetName(i)
Try
dr("Hours") = Convert.ToString(reader(0))
dr("Revenue") = Convert.ToDecimal(reader(1))
Catch ex As Exception
End Try
dt.Rows.Add(dr)
dt.AcceptChanges()
End If
End While
Dim Count As Integer = dt.Rows.Count
If Count = 0 Then
Exit Sub
End If
With Chart1
.Titles.Add("Revenue Generated by Hour and Channel ")
.Series.Clear()
.Series.Add("Revenue")
.ChartAreas.Clear()
.ChartAreas.Add("ChartArea1")
.ChartAreas("ChartArea1").AxisX.Title = "HOUR"
.ChartAreas("ChartArea1").AxisY.Title = "Revenue"
.Series("Revenue").ChartType = SeriesChartType.Column
.Series("Revenue").IsValueShownAsLabel = True
.DataSource = dt
.Series("Revenue").XValueMember = "Hours"
.Series("Revenue").AxisLabel = "Revenue"
.Series("Revenue").XAxisType = AxisType.Primary
.Series("Revenue").YValueMembers = "Revenue"
.DataBind()
.Legends.Add("Legend1")
.AlignDataPointsByAxisLabel()
End With
modified on Thursday, July 1, 2010 3:18 PM