Format currency in reportviewer, Gridview and Formview

--- Formview---


REM -- Currency Field Daily_Cost_Per_PersonLabel
            Dim tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel As Label
            tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel = CType(FormView1.FindControl("Daily_Cost_Per_PersonLabel"), Label)
            Dim str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel As String = tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text
            If str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel = "0.00" Then
                tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text = ""
            Else
                REM Putting Rs. Currency Symbol in front of FV row text
                tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text = "Rs. " + tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text
            End If
Full text:
Protected Sub FormView1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles FormView1.DataBound
        'FormView1.ChangeMode(FormViewMode.Edit)
        ' If FormView1.Visible = True Then
        ' FormView1.Visible = True
        REM Setting Integer and Date textfields in Item view of Formview to BLANK
        REM In Readonly Mode
        If FormView1.CurrentMode = FormViewMode.ReadOnly Then
            REM -- DateTime Field Date_of_EntryLabel
            Dim tmp_FV_Item__Temp_Date_of_EntryLabel As Label
            tmp_FV_Item__Temp_Date_of_EntryLabel = CType(FormView1.FindControl("Date_of_EntryLabel"), Label)
            Dim str_tmp_FV_Item__Temp_Date_of_EntryLabel As String = tmp_FV_Item__Temp_Date_of_EntryLabel.Text
            If str_tmp_FV_Item__Temp_Date_of_EntryLabel = "01 Jan 1900" Then
                tmp_FV_Item__Temp_Date_of_EntryLabel.Text = ""
            End If
            REM -- Integer Field No_of_DaigsLabel
            Dim tmp_FV_Item__Temp_No_of_DaigsLabel As Label
            tmp_FV_Item__Temp_No_of_DaigsLabel = CType(FormView1.FindControl("No_of_DaigsLabel"), Label)
            Dim str_tmp_FV_Item__Temp_No_of_DaigsLabel As String = tmp_FV_Item__Temp_No_of_DaigsLabel.Text
            If str_tmp_FV_Item__Temp_No_of_DaigsLabel = "0" Then
                tmp_FV_Item__Temp_No_of_DaigsLabel.Text = ""
            End If
            REM -- Integer Field No_of_RotisLabel
            Dim tmp_FV_Item__Temp_No_of_RotisLabel As Label
            tmp_FV_Item__Temp_No_of_RotisLabel = CType(FormView1.FindControl("No_of_RotisLabel"), Label)
            Dim str_tmp_FV_Item__Temp_No_of_RotisLabel As String = tmp_FV_Item__Temp_No_of_RotisLabel.Text
            If str_tmp_FV_Item__Temp_No_of_RotisLabel = "0" Then
                tmp_FV_Item__Temp_No_of_RotisLabel.Text = ""
            End If
            REM -- Integer Field No_of_Bene_MaleLabel
            Dim tmp_FV_Item__Temp_No_of_Bene_MaleLabel As Label
            tmp_FV_Item__Temp_No_of_Bene_MaleLabel = CType(FormView1.FindControl("No_of_Bene_MaleLabel"), Label)
            Dim str_tmp_FV_Item__Temp_No_of_Bene_MaleLabel As String = tmp_FV_Item__Temp_No_of_Bene_MaleLabel.Text
            If str_tmp_FV_Item__Temp_No_of_Bene_MaleLabel = "0" Then
                tmp_FV_Item__Temp_No_of_Bene_MaleLabel.Text = ""
            End If
            REM -- Integer Field No_of_Bene_FemaleLabel
            Dim tmp_FV_Item__Temp_No_of_Bene_FemaleLabel As Label
            tmp_FV_Item__Temp_No_of_Bene_FemaleLabel = CType(FormView1.FindControl("No_of_Bene_FemaleLabel"), Label)
            Dim str_tmp_FV_Item__Temp_No_of_Bene_FemaleLabel As String = tmp_FV_Item__Temp_No_of_Bene_FemaleLabel.Text
            If str_tmp_FV_Item__Temp_No_of_Bene_FemaleLabel = "0" Then
                tmp_FV_Item__Temp_No_of_Bene_FemaleLabel.Text = ""
            End If
            REM -- Currency Field Daily_Cost_Per_PersonLabel
            Dim tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel As Label
            tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel = CType(FormView1.FindControl("Daily_Cost_Per_PersonLabel"), Label)
            Dim str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel As String = tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text
            If str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel = "0.00" Then
                tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text = ""
            Else
                REM Putting Rs. Currency Symbol in front of FV row text
                tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text = "Rs. " + tmp_FV_Item__Temp_Daily_Cost_Per_PersonLabel.Text
            End If
            REM -- Integer Field Acc_ExpLabel
            Dim tmp_FV_Item__Temp_Acc_ExpLabel As Label
            tmp_FV_Item__Temp_Acc_ExpLabel = CType(FormView1.FindControl("Acc_ExpLabel"), Label)
            Dim str_tmp_FV_Item__Temp_Acc_ExpLabel As String = tmp_FV_Item__Temp_Acc_ExpLabel.Text
            If str_tmp_FV_Item__Temp_Acc_ExpLabel = "0" Then
                tmp_FV_Item__Temp_Acc_ExpLabel.Text = ""
            End If
        End If
        REM In Insert Mode
        If FormView1.CurrentMode = FormViewMode.Insert Then
            REM -- DateTime Field Date_of_EntryText
            Dim tmp_FV_Item__Temp_Date_of_EntryText As TextBox
            tmp_FV_Item__Temp_Date_of_EntryText = CType(FormView1.FindControl("Date_of_EntryTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_Date_of_EntryText As String = tmp_FV_Item__Temp_Date_of_EntryText.Text
            If str_tmp_FV_Item__Temp_Date_of_EntryText = "01 Jan 1900" Then
                tmp_FV_Item__Temp_Date_of_EntryText.Text = ""
            End If
            REM -- Integer Field No_of_DaigsText
            Dim tmp_FV_Item__Temp_No_of_DaigsText As TextBox
            tmp_FV_Item__Temp_No_of_DaigsText = CType(FormView1.FindControl("No_of_DaigsTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_DaigsText As String = tmp_FV_Item__Temp_No_of_DaigsText.Text
            If str_tmp_FV_Item__Temp_No_of_DaigsText = "0" Then
                tmp_FV_Item__Temp_No_of_DaigsText.Text = ""
            End If
            REM -- Integer Field No_of_RotisText
            Dim tmp_FV_Item__Temp_No_of_RotisText As TextBox
            tmp_FV_Item__Temp_No_of_RotisText = CType(FormView1.FindControl("No_of_RotisTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_RotisText As String = tmp_FV_Item__Temp_No_of_RotisText.Text
            If str_tmp_FV_Item__Temp_No_of_RotisText = "0" Then
                tmp_FV_Item__Temp_No_of_RotisText.Text = ""
            End If
            REM -- Integer Field No_of_Bene_MaleText
            Dim tmp_FV_Item__Temp_No_of_Bene_MaleText As TextBox
            tmp_FV_Item__Temp_No_of_Bene_MaleText = CType(FormView1.FindControl("No_of_Bene_MaleTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_Bene_MaleText As String = tmp_FV_Item__Temp_No_of_Bene_MaleText.Text
            If str_tmp_FV_Item__Temp_No_of_Bene_MaleText = "0" Then
                tmp_FV_Item__Temp_No_of_Bene_MaleText.Text = ""
            End If
            REM -- Integer Field No_of_Bene_FemaleText
            Dim tmp_FV_Item__Temp_No_of_Bene_FemaleText As TextBox
            tmp_FV_Item__Temp_No_of_Bene_FemaleText = CType(FormView1.FindControl("No_of_Bene_FemaleTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_Bene_FemaleText As String = tmp_FV_Item__Temp_No_of_Bene_FemaleText.Text
            If str_tmp_FV_Item__Temp_No_of_Bene_FemaleText = "0" Then
                tmp_FV_Item__Temp_No_of_Bene_FemaleText.Text = ""
            End If
            REM -- Currency Field Daily_Cost_Per_PersonText
            Dim tmp_FV_Item__Temp_Daily_Cost_Per_PersonText As TextBox
            tmp_FV_Item__Temp_Daily_Cost_Per_PersonText = CType(FormView1.FindControl("Daily_Cost_Per_PersonTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonText As String = tmp_FV_Item__Temp_Daily_Cost_Per_PersonText.Text
            If str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonText = "0.00" Then
                tmp_FV_Item__Temp_Daily_Cost_Per_PersonText.Text = ""
            End If
            REM -- Integer Field Acc_ExpText
            Dim tmp_FV_Item__Temp_Acc_ExpText As TextBox
            tmp_FV_Item__Temp_Acc_ExpText = CType(FormView1.FindControl("Acc_ExpTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_Acc_ExpText As String = tmp_FV_Item__Temp_Acc_ExpText.Text
            If str_tmp_FV_Item__Temp_Acc_ExpText = "0" Then
                tmp_FV_Item__Temp_Acc_ExpText.Text = ""
            End If
        End If
        REM In Edit Mode setting integer and datetime fields to blank
        If FormView1.Visible = True And FormView1.CurrentMode = FormViewMode.Edit Then
            REM -- DateTime Field Date_of_EntryText
            Dim tmp_FV_Item__Temp_Date_of_EntryText As TextBox
            tmp_FV_Item__Temp_Date_of_EntryText = CType(FormView1.FindControl("Date_of_EntryTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_Date_of_EntryText As String = tmp_FV_Item__Temp_Date_of_EntryText.Text
            If str_tmp_FV_Item__Temp_Date_of_EntryText = "01 Jan 1900" Then
                tmp_FV_Item__Temp_Date_of_EntryText.Text = ""
            End If
            REM -- Integer Field No_of_DaigsText
            Dim tmp_FV_Item__Temp_No_of_DaigsText As TextBox
            tmp_FV_Item__Temp_No_of_DaigsText = CType(FormView1.FindControl("No_of_DaigsTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_DaigsText As String = tmp_FV_Item__Temp_No_of_DaigsText.Text
            If str_tmp_FV_Item__Temp_No_of_DaigsText = "0" Then
                tmp_FV_Item__Temp_No_of_DaigsText.Text = ""
            End If
            REM -- Integer Field No_of_RotisText
            Dim tmp_FV_Item__Temp_No_of_RotisText As TextBox
            tmp_FV_Item__Temp_No_of_RotisText = CType(FormView1.FindControl("No_of_RotisTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_RotisText As String = tmp_FV_Item__Temp_No_of_RotisText.Text
            If str_tmp_FV_Item__Temp_No_of_RotisText = "0" Then
                tmp_FV_Item__Temp_No_of_RotisText.Text = ""
            End If
            REM -- Integer Field No_of_Bene_MaleText
            Dim tmp_FV_Item__Temp_No_of_Bene_MaleText As TextBox
            tmp_FV_Item__Temp_No_of_Bene_MaleText = CType(FormView1.FindControl("No_of_Bene_MaleTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_Bene_MaleText As String = tmp_FV_Item__Temp_No_of_Bene_MaleText.Text
            If str_tmp_FV_Item__Temp_No_of_Bene_MaleText = "0" Then
                tmp_FV_Item__Temp_No_of_Bene_MaleText.Text = ""
            End If
            REM -- Integer Field No_of_Bene_FemaleText
            Dim tmp_FV_Item__Temp_No_of_Bene_FemaleText As TextBox
            tmp_FV_Item__Temp_No_of_Bene_FemaleText = CType(FormView1.FindControl("No_of_Bene_FemaleTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_No_of_Bene_FemaleText As String = tmp_FV_Item__Temp_No_of_Bene_FemaleText.Text
            If str_tmp_FV_Item__Temp_No_of_Bene_FemaleText = "0" Then
                tmp_FV_Item__Temp_No_of_Bene_FemaleText.Text = ""
            End If
            REM -- Currency Field Daily_Cost_Per_PersonText
            Dim tmp_FV_Item__Temp_Daily_Cost_Per_PersonText As TextBox
            tmp_FV_Item__Temp_Daily_Cost_Per_PersonText = CType(FormView1.FindControl("Daily_Cost_Per_PersonTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonText As String = tmp_FV_Item__Temp_Daily_Cost_Per_PersonText.Text
            If str_tmp_FV_Item__Temp_Daily_Cost_Per_PersonText = "0.00" Then
                tmp_FV_Item__Temp_Daily_Cost_Per_PersonText.Text = ""
            End If
            REM -- Integer Field Acc_ExpText
            Dim tmp_FV_Item__Temp_Acc_ExpText As TextBox
            tmp_FV_Item__Temp_Acc_ExpText = CType(FormView1.FindControl("Acc_ExpTextBox"), TextBox)
            Dim str_tmp_FV_Item__Temp_Acc_ExpText As String = tmp_FV_Item__Temp_Acc_ExpText.Text
            If str_tmp_FV_Item__Temp_Acc_ExpText = "0" Then
                tmp_FV_Item__Temp_Acc_ExpText.Text = ""
            End If
        End If
        'End If
    End Sub

--- Gridview---

REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text() = "0.00" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text() = ""
            Else
                REM Putting Rs. Currency Symbol in front of the row text
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text() = "Rs. " + CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text()
FUll listing:
Protected Sub GridView1_DataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.DataBound
        REM Assigning EMPTY values to integer and datetime labels in GV
        REM Note that it will not involve any text fields
        REM Taking total rows in GV
        Dim tmp_Total_GV_Rows As String = GridView1.Rows.Count
        REM Recursively going through each GV row, last recursion inside will be at 0 therefore > 0 is necessary
        While tmp_Total_GV_Rows > 0
            REM Decreasing value of row holder to cover all rows, must be on top to start indexing appropriately since it goes from 0 onwards.
            tmp_Total_GV_Rows = tmp_Total_GV_Rows - 1
            'CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(5).FindControl("GV_LBL_Date_of_Entry"), Label).Text() = CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(5).FindControl("GV_LBL_Date_of_Entry"), Label).Text.ToString("dd MMM yyyy, ddd")
            REM --DateTime Field GV_LBL_Date_of_Entry--
            REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(5).FindControl("GV_LBL_Date_of_Entry"), Label).Text() = "01 Jan 1900" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(5).FindControl("GV_LBL_Date_of_Entry"), Label).Text() = ""
            End If
            REM --Integer Field GV_LBL_No_of_Daigs--
            REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(6).FindControl("GV_LBL_No_of_Daigs"), Label).Text() = "0" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(6).FindControl("GV_LBL_No_of_Daigs"), Label).Text() = ""
            End If
            REM --Integer Field GV_LBL_No_of_Rotis--
            REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(7).FindControl("GV_LBL_No_of_Rotis"), Label).Text() = "0" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(7).FindControl("GV_LBL_No_of_Rotis"), Label).Text() = ""
            End If
            REM --Integer Field GV_LBL_No_of_Bene_Male--
            REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(8).FindControl("GV_LBL_No_of_Bene_Male"), Label).Text() = "0" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(8).FindControl("GV_LBL_No_of_Bene_Male"), Label).Text() = ""
            End If
            REM --Integer Field GV_LBL_No_of_Bene_Female--
            REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(9).FindControl("GV_LBL_No_of_Bene_Female"), Label).Text() = "0" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(9).FindControl("GV_LBL_No_of_Bene_Female"), Label).Text() = ""
            End If
            REM --Currency Field GV_LBL_Daily_Cost_Per_Person--
            REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text() = "0.00" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text() = ""
            Else
                REM Putting Rs. Currency Symbol in front of the row text
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text() = "Rs. " + CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(10).FindControl("GV_LBL_Daily_Cost_Per_Person"), Label).Text()
            End If
            REM --Integer Field GV_LBL_Acc_Exp--
            REM Seeing if the item contains the value in question
            If CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(11).FindControl("GV_LBL_Acc_Exp"), Label).Text() = "0" Then
                REM Changing the value in question
                CType(GridView1.Rows(tmp_Total_GV_Rows).Cells(11).FindControl("GV_LBL_Acc_Exp"), Label).Text() = ""
            End If
        End While
    End Sub

--- Reportviewer ---

=Format(Fields!Daily_Cost_Per_Person.Value, "Rs.00")
Common VB functions are applied.
For some reason the integer is not to be denoted by anything, only the zeros are dot. It works.