NullReferenceException from my code in the DetailSection_ItemDaaBound Event

7 posts, 0 answers
  1. hkdave95
    hkdave95 avatar
    245 posts
    Member since:
    Nov 2006

    Posted 09 Jun 2008 Link to this post

    Hi

    My code is as below ....
    Private Sub DetailSection_ItemDataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles DetailSection.ItemDataBound  
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oIndividual").Visible = False 
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oSoleTrader").Visible = False 
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oOrganisation").Visible = False 
            If CType(CType(CType(sender, Telerik.Reporting.Processing.DetailSection).DataItem, DataRowView).Row("DARGA_nEntityType"), DAREnterprises.Enums.EntityTypes).Equals(DAREnterprises.Enums.EntityTypes.Individual) Then  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oIndividual").Visible = True 
            ElseIf CType(CType(CType(sender, Telerik.Reporting.Processing.DetailSection).DataItem, DataRowView).Row("DARGA_nEntityType"), DAREnterprises.Enums.EntityTypes).Equals(DAREnterprises.Enums.EntityTypes.SoleTrader) Then  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oSoleTrader").Visible = True 
            Else  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oOrganisation").Visible = True 
            End If  
        End Sub 
    It fails on the very first line.

    I most definately have an object "oIndividual" defined in the DetailSection.

    I have also used the Find method of the Items method but have the same problem.

    Any ideas ?

    Kind Regards

    David
  2. hkdave95
    hkdave95 avatar
    245 posts
    Member since:
    Nov 2006

    Posted 09 Jun 2008 Link to this post

    Hi

    A lettle more delving and I get "The pointer for this method was null" when trying to display the items method in the immediate window.

    Kind Regards

    David
  3. DevCraft banner
  4. Steve
    Admin
    Steve avatar
    10941 posts

    Posted 10 Jun 2008 Link to this post

    Hello David,

    The code you've provided works properly on our end, so we are not sure what might be causing the null reference exception. Please provide more info on how do you bind/create your report and its items in the details section or send a sample report, we can look into.

    All the best,
    Steve
    the Telerik team

    Instantly find answers to your questions at the new Telerik Support Center
  5. hkdave95
    hkdave95 avatar
    245 posts
    Member since:
    Nov 2006

    Posted 10 Jun 2008 Link to this post

    Hi

    Here is my report ...
    Option Explicit On  
    Option Strict On  
     
    Imports System.Web.UI  
    Imports System.ComponentModel  
    Imports System.Drawing  
    Imports System.Windows.Forms  
    Imports Telerik.Reporting  
    Imports Telerik.Reporting.Drawing  
     
    Public Class Report_AddressesDetailed  
        Inherits Report  
     
        Private WithEvents DetailSection As Telerik.Reporting.DetailSection  
        Private WithEvents titleTextBox As Telerik.Reporting.TextBox  
        Private WithEvents reportHeader As Telerik.Reporting.ReportHeaderSection  
        Private WithEvents pageInfoTextBox As Telerik.Reporting.TextBox  
        Private WithEvents currentTimeTextBox As Telerik.Reporting.TextBox  
        Private WithEvents pageFooter As Telerik.Reporting.PageFooterSection  
        Private WithEvents reportNameTextBox As Telerik.Reporting.TextBox  
        Private WithEvents DARGA_sID As Telerik.Reporting.TextBox  
        Private WithEvents DARGA_sName As Telerik.Reporting.TextBox  
        Private WithEvents pageHeader As Telerik.Reporting.PageHeaderSection  
        Private WithEvents dareSOFT_DataSet As DAREnterprises.Data.dareSOFT_DataSet  
        Friend WithEvents oCompanyName As Telerik.Reporting.SubReport  
        Friend WithEvents Subreport_CompanyName As DAREnterprises.Library_Specific.Subreport_CompanyName  
        Private Shared loSavedPage As Page = Nothing 
        Friend WithEvents pnlDetails As Telerik.Reporting.Panel  
        Friend WithEvents sDetails As Telerik.Reporting.TextBox  
        Friend WithEvents pnlName As Telerik.Reporting.Panel  
        Friend WithEvents oIndividual As Telerik.Reporting.SubReport  
        Friend WithEvents oOrganisation As Telerik.Reporting.SubReport  
        Friend WithEvents oSoleTrader As Telerik.Reporting.SubReport  
        Friend WithEvents TextBox1 As Telerik.Reporting.TextBox  
        Friend WithEvents Panel1 As Telerik.Reporting.Panel  
        Friend WithEvents Subreport_Organisation As DAREnterprises.Library_Specific.Subreport_Organisation  
        Friend WithEvents Subreport_Individual1 As DAREnterprises.Library_Specific.Subreport_Individual  
        Private poPage As Page  
     
        Public Sub New(ByVal loPage As Page)  
            Call Me.InitializeComponent()  
            Me.Report.DataSource = Nothing 
            Me.poPage = loPage 
            Call SetGetPage(loPage)  
        End Sub  
     
        Private Sub InitializeComponent()  
            Dim StyleRule1 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Dim StyleRule2 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Dim StyleRule3 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Dim StyleRule4 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Me.pageHeader = New Telerik.Reporting.PageHeaderSection  
            Me.reportNameTextBox = New Telerik.Reporting.TextBox  
            Me.pageFooter = New Telerik.Reporting.PageFooterSection  
            Me.currentTimeTextBox = New Telerik.Reporting.TextBox  
            Me.pageInfoTextBox = New Telerik.Reporting.TextBox  
            Me.oCompanyName = New Telerik.Reporting.SubReport  
            Me.Subreport_CompanyName = New DAREnterprises.Library_Specific.Subreport_CompanyName  
            Me.reportHeader = New Telerik.Reporting.ReportHeaderSection  
            Me.titleTextBox = New Telerik.Reporting.TextBox  
            Me.DetailSection = New Telerik.Reporting.DetailSection  
            Me.DARGA_sID = New Telerik.Reporting.TextBox  
            Me.DARGA_sName = New Telerik.Reporting.TextBox  
            Me.pnlDetails = New Telerik.Reporting.Panel  
            Me.sDetails = New Telerik.Reporting.TextBox  
            Me.pnlName = New Telerik.Reporting.Panel  
            Me.Panel1 = New Telerik.Reporting.Panel  
            Me.oOrganisation = New Telerik.Reporting.SubReport  
            Me.Subreport_Organisation = New DAREnterprises.Library_Specific.Subreport_Organisation  
            Me.oIndividual = New Telerik.Reporting.SubReport  
            Me.oSoleTrader = New Telerik.Reporting.SubReport  
            Me.TextBox1 = New Telerik.Reporting.TextBox  
            Me.dareSOFT_DataSet = New DAREnterprises.Data.dareSOFT_DataSet  
            Me.Subreport_Individual1 = New DAREnterprises.Library_Specific.Subreport_Individual  
            CType(Me.Subreport_CompanyName, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me.Subreport_Organisation, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me.dareSOFT_DataSet, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me.Subreport_Individual1, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()  
            '  
            'pageHeader  
            '  
            Me.pageHeader.Height = New Telerik.Reporting.Drawing.Unit(0.71428573131561279, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.pageHeader.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.reportNameTextBox})  
            Me.pageHeader.Name = "pageHeader" 
            Me.pageHeader.PrintOnLastPage = False 
            Me.pageHeader.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'reportNameTextBox  
            '  
            Me.reportNameTextBox.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.052910052239894867, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.052910052239894867, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.reportNameTextBox.Name = "reportNameTextBox" 
            Me.reportNameTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(25.620635986328125, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.60000002384185791, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.reportNameTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.reportNameTextBox.StyleName = "PageInfo" 
            Me.reportNameTextBox.Value = "Report_AddressesDetailed" 
            '  
            'pageFooter  
            '  
            Me.pageFooter.Height = New Telerik.Reporting.Drawing.Unit(1.3999996185302734, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.pageFooter.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.currentTimeTextBox, Me.pageInfoTextBox, Me.oCompanyName})  
            Me.pageFooter.Name = "pageFooter" 
            Me.pageFooter.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.pageFooter.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.pageFooter.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Bottom  
            '  
            'currentTimeTextBox  
            '  
            Me.currentTimeTextBox.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.052910052239894867, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.940740704536438, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.currentTimeTextBox.Name = "currentTimeTextBox" 
            Me.currentTimeTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(8.12169361114502, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.43270394206047058, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.currentTimeTextBox.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            Me.currentTimeTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.currentTimeTextBox.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Left  
            Me.currentTimeTextBox.StyleName = "PageInfo" 
            Me.currentTimeTextBox.Value = "=NOW()" 
            '  
            'pageInfoTextBox  
            '  
            Me.pageInfoTextBox.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(17.525197982788086, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.91438579559326172, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pageInfoTextBox.Name = "pageInfoTextBox" 
            Me.pageInfoTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(8.12169361114502, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.45905885100364685, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pageInfoTextBox.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            Me.pageInfoTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.pageInfoTextBox.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right  
            Me.pageInfoTextBox.StyleName = "PageInfo" 
            Me.pageInfoTextBox.Value = "=PageNumber + ' of ' + PageCount" 
            '  
            'oCompanyName  
            '  
            Me.oCompanyName.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.0352732352912426, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oCompanyName.Name = "oCompanyName" 
            Me.oCompanyName.Parameters.Add(New Telerik.Reporting.Parameter("O_nId", "= GetCurrentCompanyO_nId()"))  
            MeMe.oCompanyName.ReportSource = Me.Subreport_CompanyName  
            Me.oCompanyName.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(25.620637893676758, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.826002299785614, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oCompanyName.Style.Color = System.Drawing.Color.Black  
            Me.oCompanyName.Style.Font.Name = "Verdana" 
            Me.oCompanyName.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            Me.oCompanyName.Style.Font.Style = System.Drawing.FontStyle.Bold  
            '  
            'reportHeader  
            '  
            Me.reportHeader.Height = New Telerik.Reporting.Drawing.Unit(1.059259295463562, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.reportHeader.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.titleTextBox})  
            Me.reportHeader.Name = "reportHeader" 
            Me.reportHeader.Style.BackgroundColor = System.Drawing.Color.LightGray  
            Me.reportHeader.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.reportHeader.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'titleTextBox  
            '  
            Me.titleTextBox.Name = "titleTextBox" 
            Me.titleTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(25.646890640258789, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.95925933122634888, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.titleTextBox.Style.BackgroundColor = System.Drawing.Color.Empty  
            Me.titleTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.titleTextBox.StyleName = "Title" 
            '  
            'DetailSection  
            '  
            Me.DetailSection.Height = New Telerik.Reporting.Drawing.Unit(10.9264554977417, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.DetailSection.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.DARGA_sID, Me.DARGA_sName, Me.pnlDetails, Me.sDetails, Me.pnlName, Me.TextBox1})  
            Me.DetailSection.Name = "DetailSection" 
            Me.DetailSection.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.DetailSection.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'DARGA_sID  
            '  
            Me.DARGA_sID.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(19.769412994384766, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.026554936543107033, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sID.Name = "DARGA_sID" 
            Me.DARGA_sID.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(5.90413236618042, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.47344470024108887, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sID.Style.Font.Name = "Verdana" 
            Me.DARGA_sID.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.DARGA_sID.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right  
            Me.DARGA_sID.Value = "=Fields.DARGA_sID" 
            '  
            'DARGA_sName  
            '  
            Me.DARGA_sName.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.052909649908542633, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.00019981748482678086, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sName.Name = "DARGA_sName" 
            Me.DARGA_sName.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(19.663393020629883, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.47344470024108887, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sName.Style.Color = System.Drawing.Color.Black  
            Me.DARGA_sName.Style.Font.Name = "Verdana" 
            Me.DARGA_sName.Style.Font.Style = System.Drawing.FontStyle.Bold  
            Me.DARGA_sName.Value = "=Fields.DARGA_sName" 
            '  
            'pnlDetails  
            '  
            Me.pnlDetails.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.126455307006836, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.1798646450042725, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlDetails.Name = "pnlDetails" 
            Me.pnlDetails.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(12.347090721130371, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(9.4201345443725586, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlDetails.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.pnlDetails.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'sDetails  
            '  
            Me.sDetails.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.126455307006836, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.52675461769104, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.sDetails.Name = "sDetails" 
            Me.sDetails.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.9999994039535522, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.59999984502792358, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.sDetails.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.sDetails.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Bottom  
            Me.sDetails.Value = "Details" 
            '  
            'pnlName  
            '  
            Me.pnlName.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.Panel1})  
            Me.pnlName.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.29999992251396179, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.1798646450042725, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlName.Name = "pnlName" 
            Me.pnlName.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(12.546890258789063, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.7201354503631592, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlName.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.pnlName.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'Panel1  
            '  
            Me.Panel1.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.oOrganisation, Me.oIndividual, Me.oSoleTrader})  
            Me.Panel1.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.19999994337558746, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.17314648628234863, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.Panel1.Name = "Panel1" 
            Me.Panel1.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.Panel1.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'oOrganisation  
            '  
            Me.oOrganisation.Dock = System.Windows.Forms.DockStyle.Fill  
            Me.oOrganisation.Name = "oOrganisation" 
            Me.oOrganisation.Parameters.Add(New Telerik.Reporting.Parameter("O_nId", "Fields.[DARGA_nEntityId]"))  
            MeMe.oOrganisation.ReportSource = Me.Subreport_Organisation  
            Me.oOrganisation.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oOrganisation.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.oOrganisation.Visible = False 
            '  
            'oIndividual  
            '  
            Me.oIndividual.Dock = System.Windows.Forms.DockStyle.Fill  
            Me.oIndividual.Name = "oIndividual" 
            Me.oIndividual.Parameters.Add(New Telerik.Reporting.Parameter("I_nId", "=Fields.[DARGA_nEntityId]"))  
            MeMe.oIndividual.ReportSource = Me.Subreport_Individual1  
            Me.oIndividual.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oIndividual.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.oIndividual.Visible = False 
            '  
            'oSoleTrader  
            '  
            Me.oSoleTrader.Dock = System.Windows.Forms.DockStyle.Fill  
            Me.oSoleTrader.Name = "oSoleTrader" 
            Me.oSoleTrader.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oSoleTrader.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.oSoleTrader.Visible = False 
            '  
            'TextBox1  
            '  
            Me.TextBox1.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.29999992251396179, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.52675461769104, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.TextBox1.Name = "TextBox1" 
            Me.TextBox1.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.0000002384185791, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.60000145435333252, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.TextBox1.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.TextBox1.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Bottom  
            Me.TextBox1.Value = "Name" 
            '  
            'dareSOFT_DataSet  
            '  
            Me.dareSOFT_DataSet.DataSetName = "dareSOFT_DataSet" 
            Me.dareSOFT_DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema  
            '  
            'Report_AddressesDetailed  
            '  
            Me.Culture = New System.Globalization.CultureInfo("")  
            Me.DataMember = "dargAddresses_0" 
            MeMe.DataSource = Me.dareSOFT_DataSet  
            Me.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.pageHeader, Me.pageFooter, Me.reportHeader, Me.DetailSection})  
            Me.PageSettings.Landscape = True 
            Me.PageSettings.Margins.Bottom = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.Margins.Left = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.Margins.Right = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.Margins.Top = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4  
            Me.Sorting.AddRange(New Telerik.Reporting.Data.Sorting() {New Telerik.Reporting.Data.Sorting("=Fields.DARGA_sName", Telerik.Reporting.Data.SortDirection.Asc)})  
            Me.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule1.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Title")})  
            StyleRule1.Style.BackgroundColor = System.Drawing.Color.Empty  
            StyleRule1.Style.Color = System.Drawing.Color.FromArgb(CType(CType(28, Byte), Integer), CType(CType(58, Byte), Integer), CType(CType(112, Byte), Integer))  
            StyleRule1.Style.Font.Name = "Verdana" 
            StyleRule1.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(18, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule1.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule2.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Caption")})  
            StyleRule2.Style.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(28, Byte), Integer), CType(CType(58, Byte), Integer), CType(CType(112, Byte), Integer))  
            StyleRule2.Style.Color = System.Drawing.Color.White  
            StyleRule2.Style.Font.Name = "Verdana" 
            StyleRule2.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(11, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule2.Style.Font.Style = System.Drawing.FontStyle.Bold  
            StyleRule2.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle  
            StyleRule3.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Data")})  
            StyleRule3.Style.Color = System.Drawing.Color.Black  
            StyleRule3.Style.Font.Name = "Verdana" 
            StyleRule3.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule3.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule3.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle  
            StyleRule4.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("PageInfo")})  
            StyleRule4.Style.Color = System.Drawing.Color.Black  
            StyleRule4.Style.Font.Name = "Verdana" 
            StyleRule4.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule4.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule4.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle  
            Me.StyleSheet.AddRange(New Telerik.Reporting.Drawing.StyleRule() {StyleRule1, StyleRule2, StyleRule3, StyleRule4})  
            Me.Width = New Telerik.Reporting.Drawing.Unit(25.673545837402344, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            CType(Me.Subreport_CompanyName, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me.Subreport_Organisation, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me.dareSOFT_DataSet, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me.Subreport_Individual1, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me, System.ComponentModel.ISupportInitialize).EndInit()  
     
        End Sub  
     
        Private Sub Report_AddressesDetailed_NeedDataSource(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.NeedDataSource  
            CType(sender, Telerik.Reporting.Processing.Report).DataSource = DAREnterprises.Library_Specific.WebsiteObjects(Me.poPage).oSV.dareSOFT_CurrentReportDataSet  
        End Sub  
     
        Private Sub titleTextBox_ItemDataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles titleTextBox.ItemDataBinding  
            Me.titleTextBox.Value = DAREnterprises.Library_Specific.WebsiteObjects(Me.poPage).oText.FindByTag(DAREnterprises.Enums.TextItems.txtReportAddressesDetailedTitle).GetTextByLanguage(DAREnterprises.Library_Specific.WebsiteObjects(Me.poPage).oSV.CurrentLanguage)  
        End Sub  
     
        Public Shared Function GetCurrentCompanyO_nId() As Integer  
            Return CInt(DAREnterprises.Library_Specific.WebsiteObjects(SetGetPage(Nothing)).oDB.GetToLink(DAREnterprises.Library_Specific.WebsiteObjects(SetGetPage(Nothing)).oSV.dareSOFT_CurrentC_nId, DAREnterprises.Enums.LinkTypes.FromCompaniesToOrganisations, DAREnterprises.Library_Specific.WebsiteObjects(SetGetPage(Nothing)).oSV.dareSOFT_CurrentC_nId))  
        End Function  
     
        Private Shared Function SetGetPage(ByVal loPage As Page) As Page  
            If loPage IsNot Nothing Then  
                loSavedPage = loPage 
            End If  
            Return loSavedPage  
        End Function  
     
        Private Sub DetailSection_ItemDataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles DetailSection.ItemDataBound  
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oIndividual").Visible = False 
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oSoleTrader").Visible = False 
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oOrganisation").Visible = False 
            If CType(CType(CType(sender, Telerik.Reporting.Processing.DetailSection).DataItem, DataRowView).Row("DARGA_nEntityType"), DAREnterprises.Enums.EntityTypes).Equals(DAREnterprises.Enums.EntityTypes.Individual) Then  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oIndividual").Visible = True 
            ElseIf CType(CType(CType(sender, Telerik.Reporting.Processing.DetailSection).DataItem, DataRowView).Row("DARGA_nEntityType"), DAREnterprises.Enums.EntityTypes).Equals(DAREnterprises.Enums.EntityTypes.SoleTrader) Then  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oSoleTrader").Visible = True 
            Else  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oOrganisation").Visible = True 
            End If  
        End Sub  
    End Class 

    Kind Regards

    David
  6. hkdave95
    hkdave95 avatar
    245 posts
    Member since:
    Nov 2006

    Posted 10 Jun 2008 Link to this post

    Hi

    Here is my report ...
    Option Explicit On  
    Option Strict On  
     
    Imports System.Web.UI  
    Imports System.ComponentModel  
    Imports System.Drawing  
    Imports System.Windows.Forms  
    Imports Telerik.Reporting  
    Imports Telerik.Reporting.Drawing  
     
    Public Class Report_AddressesDetailed  
        Inherits Report  
     
        Private WithEvents DetailSection As Telerik.Reporting.DetailSection  
        Private WithEvents titleTextBox As Telerik.Reporting.TextBox  
        Private WithEvents reportHeader As Telerik.Reporting.ReportHeaderSection  
        Private WithEvents pageInfoTextBox As Telerik.Reporting.TextBox  
        Private WithEvents currentTimeTextBox As Telerik.Reporting.TextBox  
        Private WithEvents pageFooter As Telerik.Reporting.PageFooterSection  
        Private WithEvents reportNameTextBox As Telerik.Reporting.TextBox  
        Private WithEvents DARGA_sID As Telerik.Reporting.TextBox  
        Private WithEvents DARGA_sName As Telerik.Reporting.TextBox  
        Private WithEvents pageHeader As Telerik.Reporting.PageHeaderSection  
        Private WithEvents dareSOFT_DataSet As DAREnterprises.Data.dareSOFT_DataSet  
        Friend WithEvents oCompanyName As Telerik.Reporting.SubReport  
        Friend WithEvents Subreport_CompanyName As DAREnterprises.Library_Specific.Subreport_CompanyName  
        Private Shared loSavedPage As Page = Nothing 
        Friend WithEvents pnlDetails As Telerik.Reporting.Panel  
        Friend WithEvents sDetails As Telerik.Reporting.TextBox  
        Friend WithEvents pnlName As Telerik.Reporting.Panel  
        Friend WithEvents oIndividual As Telerik.Reporting.SubReport  
        Friend WithEvents oOrganisation As Telerik.Reporting.SubReport  
        Friend WithEvents oSoleTrader As Telerik.Reporting.SubReport  
        Friend WithEvents TextBox1 As Telerik.Reporting.TextBox  
        Friend WithEvents Panel1 As Telerik.Reporting.Panel  
        Friend WithEvents Subreport_Organisation As DAREnterprises.Library_Specific.Subreport_Organisation  
        Friend WithEvents Subreport_Individual1 As DAREnterprises.Library_Specific.Subreport_Individual  
        Private poPage As Page  
     
        Public Sub New(ByVal loPage As Page)  
            Call Me.InitializeComponent()  
            Me.Report.DataSource = Nothing 
            Me.poPage = loPage 
            Call SetGetPage(loPage)  
        End Sub  
     
        Private Sub InitializeComponent()  
            Dim StyleRule1 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Dim StyleRule2 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Dim StyleRule3 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Dim StyleRule4 As Telerik.Reporting.Drawing.StyleRule = New Telerik.Reporting.Drawing.StyleRule  
            Me.pageHeader = New Telerik.Reporting.PageHeaderSection  
            Me.reportNameTextBox = New Telerik.Reporting.TextBox  
            Me.pageFooter = New Telerik.Reporting.PageFooterSection  
            Me.currentTimeTextBox = New Telerik.Reporting.TextBox  
            Me.pageInfoTextBox = New Telerik.Reporting.TextBox  
            Me.oCompanyName = New Telerik.Reporting.SubReport  
            Me.Subreport_CompanyName = New DAREnterprises.Library_Specific.Subreport_CompanyName  
            Me.reportHeader = New Telerik.Reporting.ReportHeaderSection  
            Me.titleTextBox = New Telerik.Reporting.TextBox  
            Me.DetailSection = New Telerik.Reporting.DetailSection  
            Me.DARGA_sID = New Telerik.Reporting.TextBox  
            Me.DARGA_sName = New Telerik.Reporting.TextBox  
            Me.pnlDetails = New Telerik.Reporting.Panel  
            Me.sDetails = New Telerik.Reporting.TextBox  
            Me.pnlName = New Telerik.Reporting.Panel  
            Me.Panel1 = New Telerik.Reporting.Panel  
            Me.oOrganisation = New Telerik.Reporting.SubReport  
            Me.Subreport_Organisation = New DAREnterprises.Library_Specific.Subreport_Organisation  
            Me.oIndividual = New Telerik.Reporting.SubReport  
            Me.oSoleTrader = New Telerik.Reporting.SubReport  
            Me.TextBox1 = New Telerik.Reporting.TextBox  
            Me.dareSOFT_DataSet = New DAREnterprises.Data.dareSOFT_DataSet  
            Me.Subreport_Individual1 = New DAREnterprises.Library_Specific.Subreport_Individual  
            CType(Me.Subreport_CompanyName, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me.Subreport_Organisation, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me.dareSOFT_DataSet, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me.Subreport_Individual1, System.ComponentModel.ISupportInitialize).BeginInit()  
            CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()  
            '  
            'pageHeader  
            '  
            Me.pageHeader.Height = New Telerik.Reporting.Drawing.Unit(0.71428573131561279, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.pageHeader.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.reportNameTextBox})  
            Me.pageHeader.Name = "pageHeader" 
            Me.pageHeader.PrintOnLastPage = False 
            Me.pageHeader.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'reportNameTextBox  
            '  
            Me.reportNameTextBox.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.052910052239894867, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.052910052239894867, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.reportNameTextBox.Name = "reportNameTextBox" 
            Me.reportNameTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(25.620635986328125, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.60000002384185791, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.reportNameTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.reportNameTextBox.StyleName = "PageInfo" 
            Me.reportNameTextBox.Value = "Report_AddressesDetailed" 
            '  
            'pageFooter  
            '  
            Me.pageFooter.Height = New Telerik.Reporting.Drawing.Unit(1.3999996185302734, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.pageFooter.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.currentTimeTextBox, Me.pageInfoTextBox, Me.oCompanyName})  
            Me.pageFooter.Name = "pageFooter" 
            Me.pageFooter.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.pageFooter.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.pageFooter.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Bottom  
            '  
            'currentTimeTextBox  
            '  
            Me.currentTimeTextBox.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.052910052239894867, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.940740704536438, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.currentTimeTextBox.Name = "currentTimeTextBox" 
            Me.currentTimeTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(8.12169361114502, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.43270394206047058, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.currentTimeTextBox.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            Me.currentTimeTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.currentTimeTextBox.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Left  
            Me.currentTimeTextBox.StyleName = "PageInfo" 
            Me.currentTimeTextBox.Value = "=NOW()" 
            '  
            'pageInfoTextBox  
            '  
            Me.pageInfoTextBox.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(17.525197982788086, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.91438579559326172, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pageInfoTextBox.Name = "pageInfoTextBox" 
            Me.pageInfoTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(8.12169361114502, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.45905885100364685, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pageInfoTextBox.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            Me.pageInfoTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.pageInfoTextBox.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right  
            Me.pageInfoTextBox.StyleName = "PageInfo" 
            Me.pageInfoTextBox.Value = "=PageNumber + ' of ' + PageCount" 
            '  
            'oCompanyName  
            '  
            Me.oCompanyName.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.0352732352912426, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oCompanyName.Name = "oCompanyName" 
            Me.oCompanyName.Parameters.Add(New Telerik.Reporting.Parameter("O_nId", "= GetCurrentCompanyO_nId()"))  
            MeMe.oCompanyName.ReportSource = Me.Subreport_CompanyName  
            Me.oCompanyName.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(25.620637893676758, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.826002299785614, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oCompanyName.Style.Color = System.Drawing.Color.Black  
            Me.oCompanyName.Style.Font.Name = "Verdana" 
            Me.oCompanyName.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            Me.oCompanyName.Style.Font.Style = System.Drawing.FontStyle.Bold  
            '  
            'reportHeader  
            '  
            Me.reportHeader.Height = New Telerik.Reporting.Drawing.Unit(1.059259295463562, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.reportHeader.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.titleTextBox})  
            Me.reportHeader.Name = "reportHeader" 
            Me.reportHeader.Style.BackgroundColor = System.Drawing.Color.LightGray  
            Me.reportHeader.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.reportHeader.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'titleTextBox  
            '  
            Me.titleTextBox.Name = "titleTextBox" 
            Me.titleTextBox.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(25.646890640258789, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.95925933122634888, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.titleTextBox.Style.BackgroundColor = System.Drawing.Color.Empty  
            Me.titleTextBox.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.titleTextBox.StyleName = "Title" 
            '  
            'DetailSection  
            '  
            Me.DetailSection.Height = New Telerik.Reporting.Drawing.Unit(10.9264554977417, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.DetailSection.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.DARGA_sID, Me.DARGA_sName, Me.pnlDetails, Me.sDetails, Me.pnlName, Me.TextBox1})  
            Me.DetailSection.Name = "DetailSection" 
            Me.DetailSection.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.DetailSection.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'DARGA_sID  
            '  
            Me.DARGA_sID.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(19.769412994384766, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.026554936543107033, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sID.Name = "DARGA_sID" 
            Me.DARGA_sID.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(5.90413236618042, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.47344470024108887, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sID.Style.Font.Name = "Verdana" 
            Me.DARGA_sID.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.DARGA_sID.Style.TextAlign = Telerik.Reporting.Drawing.HorizontalAlign.Right  
            Me.DARGA_sID.Value = "=Fields.DARGA_sID" 
            '  
            'DARGA_sName  
            '  
            Me.DARGA_sName.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.052909649908542633, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.00019981748482678086, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sName.Name = "DARGA_sName" 
            Me.DARGA_sName.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(19.663393020629883, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.47344470024108887, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.DARGA_sName.Style.Color = System.Drawing.Color.Black  
            Me.DARGA_sName.Style.Font.Name = "Verdana" 
            Me.DARGA_sName.Style.Font.Style = System.Drawing.FontStyle.Bold  
            Me.DARGA_sName.Value = "=Fields.DARGA_sName" 
            '  
            'pnlDetails  
            '  
            Me.pnlDetails.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.126455307006836, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.1798646450042725, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlDetails.Name = "pnlDetails" 
            Me.pnlDetails.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(12.347090721130371, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(9.4201345443725586, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlDetails.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.pnlDetails.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'sDetails  
            '  
            Me.sDetails.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(13.126455307006836, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.52675461769104, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.sDetails.Name = "sDetails" 
            Me.sDetails.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(1.9999994039535522, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.59999984502792358, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.sDetails.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.sDetails.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Bottom  
            Me.sDetails.Value = "Details" 
            '  
            'pnlName  
            '  
            Me.pnlName.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.Panel1})  
            Me.pnlName.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.29999992251396179, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.1798646450042725, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlName.Name = "pnlName" 
            Me.pnlName.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(12.546890258789063, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.7201354503631592, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.pnlName.Style.BorderStyle.Default = Telerik.Reporting.Drawing.BorderType.Solid  
            Me.pnlName.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'Panel1  
            '  
            Me.Panel1.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.oOrganisation, Me.oIndividual, Me.oSoleTrader})  
            Me.Panel1.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.19999994337558746, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.17314648628234863, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.Panel1.Name = "Panel1" 
            Me.Panel1.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.Panel1.Style.Font.Style = System.Drawing.FontStyle.Regular  
            '  
            'oOrganisation  
            '  
            Me.oOrganisation.Dock = System.Windows.Forms.DockStyle.Fill  
            Me.oOrganisation.Name = "oOrganisation" 
            Me.oOrganisation.Parameters.Add(New Telerik.Reporting.Parameter("O_nId", "Fields.[DARGA_nEntityId]"))  
            MeMe.oOrganisation.ReportSource = Me.Subreport_Organisation  
            Me.oOrganisation.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oOrganisation.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.oOrganisation.Visible = False 
            '  
            'oIndividual  
            '  
            Me.oIndividual.Dock = System.Windows.Forms.DockStyle.Fill  
            Me.oIndividual.Name = "oIndividual" 
            Me.oIndividual.Parameters.Add(New Telerik.Reporting.Parameter("I_nId", "=Fields.[DARGA_nEntityId]"))  
            MeMe.oIndividual.ReportSource = Me.Subreport_Individual1  
            Me.oIndividual.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oIndividual.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.oIndividual.Visible = False 
            '  
            'oSoleTrader  
            '  
            Me.oSoleTrader.Dock = System.Windows.Forms.DockStyle.Fill  
            Me.oSoleTrader.Name = "oSoleTrader" 
            Me.oSoleTrader.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(11.900099754333496, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(1.3469890356063843, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.oSoleTrader.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.oSoleTrader.Visible = False 
            '  
            'TextBox1  
            '  
            Me.TextBox1.Location = New Telerik.Reporting.Drawing.PointU(New Telerik.Reporting.Drawing.Unit(0.29999992251396179, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.52675461769104, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.TextBox1.Name = "TextBox1" 
            Me.TextBox1.Size = New Telerik.Reporting.Drawing.SizeU(New Telerik.Reporting.Drawing.Unit(2.0000002384185791, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)), New Telerik.Reporting.Drawing.Unit(0.60000145435333252, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType)))  
            Me.TextBox1.Style.Font.Style = System.Drawing.FontStyle.Regular  
            Me.TextBox1.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Bottom  
            Me.TextBox1.Value = "Name" 
            '  
            'dareSOFT_DataSet  
            '  
            Me.dareSOFT_DataSet.DataSetName = "dareSOFT_DataSet" 
            Me.dareSOFT_DataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema  
            '  
            'Report_AddressesDetailed  
            '  
            Me.Culture = New System.Globalization.CultureInfo("")  
            Me.DataMember = "dargAddresses_0" 
            MeMe.DataSource = Me.dareSOFT_DataSet  
            Me.Items.AddRange(New Telerik.Reporting.ReportItemBase() {Me.pageHeader, Me.pageFooter, Me.reportHeader, Me.DetailSection})  
            Me.PageSettings.Landscape = True 
            Me.PageSettings.Margins.Bottom = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.Margins.Left = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.Margins.Right = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.Margins.Top = New Telerik.Reporting.Drawing.Unit(2, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            Me.PageSettings.PaperKind = System.Drawing.Printing.PaperKind.A4  
            Me.Sorting.AddRange(New Telerik.Reporting.Data.Sorting() {New Telerik.Reporting.Data.Sorting("=Fields.DARGA_sName", Telerik.Reporting.Data.SortDirection.Asc)})  
            Me.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule1.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Title")})  
            StyleRule1.Style.BackgroundColor = System.Drawing.Color.Empty  
            StyleRule1.Style.Color = System.Drawing.Color.FromArgb(CType(CType(28, Byte), Integer), CType(CType(58, Byte), Integer), CType(CType(112, Byte), Integer))  
            StyleRule1.Style.Font.Name = "Verdana" 
            StyleRule1.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(18, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule1.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule2.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Caption")})  
            StyleRule2.Style.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(28, Byte), Integer), CType(CType(58, Byte), Integer), CType(CType(112, Byte), Integer))  
            StyleRule2.Style.Color = System.Drawing.Color.White  
            StyleRule2.Style.Font.Name = "Verdana" 
            StyleRule2.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(11, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule2.Style.Font.Style = System.Drawing.FontStyle.Bold  
            StyleRule2.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle  
            StyleRule3.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("Data")})  
            StyleRule3.Style.Color = System.Drawing.Color.Black  
            StyleRule3.Style.Font.Name = "Verdana" 
            StyleRule3.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(10, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule3.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule3.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle  
            StyleRule4.Selectors.AddRange(New Telerik.Reporting.Drawing.ISelector() {New Telerik.Reporting.Drawing.StyleSelector("PageInfo")})  
            StyleRule4.Style.Color = System.Drawing.Color.Black  
            StyleRule4.Style.Font.Name = "Verdana" 
            StyleRule4.Style.Font.Size = New Telerik.Reporting.Drawing.Unit(8, CType(Telerik.Reporting.Drawing.UnitType.Point, Telerik.Reporting.Drawing.UnitType))  
            StyleRule4.Style.Font.Style = System.Drawing.FontStyle.Regular  
            StyleRule4.Style.VerticalAlign = Telerik.Reporting.Drawing.VerticalAlign.Middle  
            Me.StyleSheet.AddRange(New Telerik.Reporting.Drawing.StyleRule() {StyleRule1, StyleRule2, StyleRule3, StyleRule4})  
            Me.Width = New Telerik.Reporting.Drawing.Unit(25.673545837402344, CType(Telerik.Reporting.Drawing.UnitType.Cm, Telerik.Reporting.Drawing.UnitType))  
            CType(Me.Subreport_CompanyName, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me.Subreport_Organisation, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me.dareSOFT_DataSet, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me.Subreport_Individual1, System.ComponentModel.ISupportInitialize).EndInit()  
            CType(Me, System.ComponentModel.ISupportInitialize).EndInit()  
     
        End Sub  
     
        Private Sub Report_AddressesDetailed_NeedDataSource(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.NeedDataSource  
            CType(sender, Telerik.Reporting.Processing.Report).DataSource = DAREnterprises.Library_Specific.WebsiteObjects(Me.poPage).oSV.dareSOFT_CurrentReportDataSet  
        End Sub  
     
        Private Sub titleTextBox_ItemDataBinding(ByVal sender As Object, ByVal e As System.EventArgs) Handles titleTextBox.ItemDataBinding  
            Me.titleTextBox.Value = DAREnterprises.Library_Specific.WebsiteObjects(Me.poPage).oText.FindByTag(DAREnterprises.Enums.TextItems.txtReportAddressesDetailedTitle).GetTextByLanguage(DAREnterprises.Library_Specific.WebsiteObjects(Me.poPage).oSV.CurrentLanguage)  
        End Sub  
     
        Public Shared Function GetCurrentCompanyO_nId() As Integer  
            Return CInt(DAREnterprises.Library_Specific.WebsiteObjects(SetGetPage(Nothing)).oDB.GetToLink(DAREnterprises.Library_Specific.WebsiteObjects(SetGetPage(Nothing)).oSV.dareSOFT_CurrentC_nId, DAREnterprises.Enums.LinkTypes.FromCompaniesToOrganisations, DAREnterprises.Library_Specific.WebsiteObjects(SetGetPage(Nothing)).oSV.dareSOFT_CurrentC_nId))  
        End Function  
     
        Private Shared Function SetGetPage(ByVal loPage As Page) As Page  
            If loPage IsNot Nothing Then  
                loSavedPage = loPage 
            End If  
            Return loSavedPage  
        End Function  
     
        Private Sub DetailSection_ItemDataBound(ByVal sender As Object, ByVal e As System.EventArgs) Handles DetailSection.ItemDataBound  
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oIndividual").Visible = False 
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oSoleTrader").Visible = False 
            CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oOrganisation").Visible = False 
            If CType(CType(CType(sender, Telerik.Reporting.Processing.DetailSection).DataItem, DataRowView).Row("DARGA_nEntityType"), DAREnterprises.Enums.EntityTypes).Equals(DAREnterprises.Enums.EntityTypes.Individual) Then  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oIndividual").Visible = True 
            ElseIf CType(CType(CType(sender, Telerik.Reporting.Processing.DetailSection).DataItem, DataRowView).Row("DARGA_nEntityType"), DAREnterprises.Enums.EntityTypes).Equals(DAREnterprises.Enums.EntityTypes.SoleTrader) Then  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oSoleTrader").Visible = True 
            Else  
                CType(sender, Telerik.Reporting.Processing.DetailSection).Items("oOrganisation").Visible = True 
            End If  
        End Sub  
    End Class 

    Kind Regards

    David
  7. hkdave95
    hkdave95 avatar
    245 posts
    Member since:
    Nov 2006

    Posted 10 Jun 2008 Link to this post

    Hi

    I solved it !

    It turned out that the withevents variables had a mixture of Private and Friend declarations.

    I changed them all to Firend and the aplication started working correctly.

    Kind Regards

    David
  8. Steve
    Admin
    Steve avatar
    10941 posts

    Posted 11 Jun 2008 Link to this post

    Hello hkdave95,

    We're glad you've figured it out. The default serializer does not change this automatically for you, so you should manually change the modifiers according to your needs. Here is more info on Friend WithEvents modifier and what does it mean.

    Kind regards,
    Steve
    the Telerik team

    Instantly find answers to your questions at the new Telerik Support Center
Back to Top
DevCraft banner