Telerik Forums / Reporting
This is a migrated thread and some comments may be shown as answers.

NullReferenceException from my code in the DetailSection_ItemDaaBound Event

6 Answers 112 Views
General Discussions
This is a migrated thread and some comments may be shown as answers.
hkdave95
Top achievements
Rank 2
hkdave95 asked on 09 Jun 2008, 11:00 PM
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

6 Answers, 1 is accepted

Sort by
0
hkdave95
Top achievements
Rank 2
answered on 09 Jun 2008, 11:05 PM
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
0
Steve
Telerik team
answered on 10 Jun 2008, 02:47 PM
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
0
hkdave95
Top achievements
Rank 2
answered on 10 Jun 2008, 05:55 PM
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
0
hkdave95
Top achievements
Rank 2
answered on 10 Jun 2008, 05:55 PM
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
0
hkdave95
Top achievements
Rank 2
answered on 10 Jun 2008, 10:46 PM
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
0
Steve
Telerik team
answered on 11 Jun 2008, 06:51 AM
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
Tags
General Discussions
Asked by
hkdave95
Top achievements
Rank 2
Answers by
hkdave95
Top achievements
Rank 2
Steve
Telerik team
Share this question
or