ArgumentOutOfRangeException RadGridView ChildView

[Frank Schürer]

Hello,

I've got a problem and i have no more idea how to fix it. I made a Gridview and put 2 Childs into it. The first Child can be selectet without any problems. But when i select the second child, i'll get an exception.
It's the ArgumentOutOfRangeException.

The two 2 Childviews are made in the Code.

The first Child:

Private Sub LoadDetailsTable()
        Dim table As New DataTable("Belegungseinheit")
        table.Columns.Add("Belegungseinheit_ID", GetType(Integer))
        table.Columns.Add("Konzept_ID", GetType(String))
        table.Columns.Add("Gattung_ID", GetType(Integer))
        table.Columns.Add("Medium_ID", GetType(Integer))
        table.Columns.Add("Ausgaben_ID", GetType(Integer))
        table.Columns.Add("Erscheinungsweise", GetType(String))
        table.Columns.Add("verbr_Auflage", GetType(Integer))
        table.Columns.Add("HH_RW", GetType(Integer))
        table.Columns.Add("ET1", GetType(DateTime))
        table.Columns.Add("ET2", GetType(DateTime))
        table.Columns.Add("Anzahl_Spalten", GetType(Integer))
        table.Columns.Add("Breite_mm", GetType(Integer))
        table.Columns.Add("Hoehe_mm", GetType(Integer))
        ''table.Columns.Add("Platzierung_ID", GetType(Integer))
        ''table.Columns.Add("Umrechnungsfaktor", GetType(Double))
        ''table.Columns.Add("Farb_ID", GetType(Integer))
        ''table.Columns.Add("mm_Preis", GetType(Double))
        table.Columns.Add("Farbzuschlag_Pro", GetType(Double))
        table.Columns.Add("Farbzuschlag_Euro", GetType(Double))
        table.Columns.Add("FZ_Rabatt", GetType(Boolean))
        table.Columns.Add("FZ_AE", GetType(Boolean))
        table.Columns.Add("Festpreis", GetType(Double))
        table.Columns.Add("Kombi_Rabatt", GetType(Double))
        table.Columns.Add("Mengen_Rabatt", GetType(Double))
        table.Columns.Add("Sonder_Rabatt", GetType(Double))
        table.Columns.Add("Zuschlag_Pro", GetType(Double))
        table.Columns.Add("Zuschlag_Euro", GetType(Double))
        'table.Columns.Add("AE", GetType(Double))
        table.Columns.Add("Netto", GetType(Double))
        table.Columns.Add("Netto_Honorar", GetType(Double))
        ''table.Columns.Add("Skonto", GetType(Integer))
        ''table.Columns.Add("Vereinbarung", GetType(Boolean))
        table.Columns.Add("Insertionsnummer", GetType(String))
        table.Columns.Add("MA_Code", GetType(String))
        table.Columns.Add("SchaltungsNr", GetType(String))
        table.Columns.Add("Storno", GetType(Boolean))
        For Each row As DataRow In Me.Anzeigenverwaltung_DEVDataSet.Belegungeinheit.Rows
            table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("ET1"), row("ET2"), row("Anzahl_Spalten"), row("Breite_mm"), row("Hoehe_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno"))
            'table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("Hoehe_mm"), row("Anzahl_Spalten"), row("Breite_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno"))
            'table.Rows.Add(row("Belegungseinheit_ID"), row("Konzept_ID"), row("Gattung_ID"), row("Medium_ID"), row("Ausgaben_ID"), row("Erscheinungsweise"), row("verbr_Auflage"), row("HH_RW"), row("ET1"), row("ET2"), row("Anzahl_Spalten"), row("Breite_mm"), row("Hoehe_mm"), row("Farbzuschlag_Pro"), row("Farbzuschlag_Euro"), row("FZ_Rabatt"), row("FZ_AE"), row("Festpreis"), row("Kombi_Rabatt"), row("Mengen_Rabatt"), row("Sonder_Rabatt"), row("Zuschlag_Pro"), row("Zuschlag_Euro"), row("Netto"), row("Netto_Honorar"), row("Insertionsnummer"), row("MA_Code"), row("SchaltungsNr"), row("Storno"))
        Next row

        Dim template As New GridViewTemplate(Me.rgvDaten)
        template.Caption = "Belegungseinheit"
        template.DataSource = table
        template.AllowEditRow = True
        template.AllowRowResize = True
        template.ShowColumnHeaders = False
        template.AllowAddNewRow = False

        'template.Columns("Gattung_ID").DisableHTMLRendering = False
        template.Columns("Gattung_ID").Width = 100
        template.Columns("Medium_ID").Width = 100
        template.Columns("Ausgaben_ID").Width = 100
        template.Columns("Erscheinungsweise").Width = 100
        template.Columns("verbr_Auflage").Width = 100
        template.Columns("HH_RW").Width = 90

        'template.Columns("ET1").DisableHTMLRendering = False
        'template.Columns("ET2").DisableHTMLRendering = False
        template.Columns("Anzahl_Spalten").BestFit()
        template.Columns("Breite_mm").BestFit()
        template.Columns("Hoehe_mm").BestFit()
        ' ''template.Columns("Platzierung_ID").Width = 40
        template.Columns("Farbzuschlag_Pro").BestFit()
        template.Columns("Farbzuschlag_Euro").BestFit()
        template.Columns("FZ_Rabatt").Width = 75
        template.Columns("FZ_AE").Width = 50

        template.Columns("Festpreis").BestFit()
        template.Columns("Kombi_Rabatt").BestFit()
        template.Columns("Mengen_Rabatt").BestFit()
        template.Columns("Sonder_Rabatt").BestFit()
        template.Columns("Zuschlag_Pro").BestFit()
        template.Columns("Zuschlag_Euro").BestFit()
        ' ''template.Columns("AE").Width = 40
        template.Columns("Netto").BestFit()
        template.Columns("Netto_Honorar").BestFit()
        ' ''template.Columns("Skonto").Width = 25
        ' ''template.Columns("Vereinbarung").Width = 25

        template.Columns("Insertionsnummer").Width = 120
        template.Columns("MA_Code").Width = 120
        template.Columns("SchaltungsNr").Width = 120
        'template.Columns("Storno").DisableHTMLRendering = False
        template.Columns("Storno").Width = 100


        Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates.Insert(0, template)

        Dim relation As New GridViewRelation(Me.rgvDaten.MasterGridViewTemplate)
        relation.ChildTemplate = template
        relation.ParentColumnNames.Add("Belegungseinheit_ID")
        relation.ChildColumnNames.Add("Belegungseinheit_ID")
        Me.rgvDaten.Relations.Add(relation)

        Dim viewDef As New HtmlViewDefinition()
        viewDef.RowTemplate.Rows.Add(New RowDefinition())
        viewDef.RowTemplate.Rows.Add(New RowDefinition())
        viewDef.RowTemplate.Rows.Add(New RowDefinition())
        viewDef.RowTemplate.Rows.Add(New RowDefinition())

        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Gattung_ID", 0, 1, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Medium_ID", 0, 2, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ausgaben_ID", 0, 2, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Erscheinungsweise", 0, 2, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("verbr_Auflage", 0, 1, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("HH_RW", 0, 1, 1))

        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ET1", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ET2", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Anzahl_Spalten", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Breite_mm", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Hoehe_mm", 0, 1, 1))
        ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Platzierung_ID", 0, 1, 1))
        ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Umrechnungsfaktor", 0, 1, 1))
        ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farb_ID", 0, 1, 1))
        ''viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("mm_Preis", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farbzuschlag_Pro", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Farbzuschlag_Euro", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("FZ_Rabatt", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("FZ_AE", 0, 1, 1))

        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Festpreis", 0, 1, 1))
        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Kombi_Rabatt", 0, 1, 1))
        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Mengen_Rabatt", 0, 1, 1))
        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Sonder_Rabatt", 0, 1, 1))
        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Zuschlag_Pro", 0, 1, 1))
        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Zuschlag_Euro", 0, 1, 1))
        ''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("AE", 0, 1, 1))
        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Netto", 0, 1, 1))
        viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Netto_Honorar", 0, 2, 1))
        ''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Skonto", 0, 1, 1))
        ''viewDef.RowTemplate.Rows(2).Cells.Add(New CellDefinition("Vereinbarung", 0, 1, 1))

        viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("Insertionsnummer", 0, 2, 1))
        viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("MA_Code", 0, 2, 1))
        viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("SchaltungsNr", 0, 2, 1))
        viewDef.RowTemplate.Rows(3).Cells.Add(New CellDefinition("Storno", 0, 1, 1))

        Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates(0).ViewDefinition = viewDef
    End Sub

and the second child:

Private Sub LoadDUPTable()
        Dim table As New DataTable("DUP")
        table.Columns.Add("DUP_ID", GetType(Integer))
        table.Columns.Add("Verlag", GetType(String))
        table.Columns.Add("Strasse", GetType(String))
        table.Columns.Add("PLZ", GetType(String))
        table.Columns.Add("Ort", GetType(String))
        table.Columns.Add("Ansprechpartner_Anzeigen_Anrede", GetType(String))
        table.Columns.Add("Ansprechpartner_Anzeigen_Name", GetType(String))
        table.Columns.Add("Tel_Anzeige", GetType(String))
        table.Columns.Add("Fax_Anzeige", GetType(String))
        table.Columns.Add("Ansprechpartner_Technik_Anrede", GetType(String))
        table.Columns.Add("Ansprechpartner_Technik_Name", GetType(String))
        table.Columns.Add("Tel_Technik", GetType(String))
        table.Columns.Add("Fax_Technik", GetType(String))
        table.Columns.Add("Email_Technik", GetType(String))
        table.Columns.Add("ISDN", GetType(String))
        table.Columns.Add("DU_Datum", GetType(DateTime))
        table.Columns.Add("DU_Uhrzeit", GetType(DateTime))
        table.Columns.Add("Vorlage_liegt_vor", GetType(Boolean))
        table.Columns.Add("Beleg_liegt_vor", GetType(Boolean))
        table.Columns.Add("Bemerkung", GetType(String))
        table.Columns.Add("Belegungseinheit_ID", GetType(Integer))

        For Each row As DataRow In Me.Anzeigenverwaltung_DEVDataSet.DUP.Rows
            table.Rows.Add(row("DUP_ID"), row("Verlag"), row("Strasse"), row("PLZ"), row("Ort"), row("Anprechpartner_Anzeigen_Anrede"), row("Ansprechpartner_Anzeigen_Name"), row("Tel_Anzeige"), row("Fax_Anzeige"), row("Ansprechpartner_Technik_Anrede"), row("Ansprechpartner_Technik_Name"), row("Tel_Technik"), row("Fax_Technik"), row("Email_Technik"), row("ISDN"), row("DU_Datum"), row("DU_Uhrzeit"), row("Vorlage_liegt_vor"), row("Beleg_liegt_vor"), row("Bemerlung"), row("Belegungseinheit_ID"))
        Next row

        Dim template As New GridViewTemplate(Me.rgvDaten)
        template.Caption = "DUP"
        template.DataSource = table
        template.AllowAutoSizeColumns = True
        template.AllowEditRow = True
        template.AllowRowResize = True
        template.ShowColumnHeaders = False
        'template.AllowAddNewRow = False
        Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates.Insert(0, template)

        Dim relation As New GridViewRelation(Me.rgvDaten.MasterGridViewTemplate)
        relation.ChildTemplate = template
        relation.ParentColumnNames.Add("Kurz_Beleg_ID")
        relation.ChildColumnNames.Add("Kurz_Beleg_ID")
        Me.rgvDaten.Relations.Add(relation)

        Dim viewDef As New HtmlViewDefinition()
        viewDef.RowTemplate.Rows.Add(New RowDefinition())
        viewDef.RowTemplate.Rows.Add(New RowDefinition())

        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Verlag", 0, 1, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Strasse", 0, 2, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("PLZ", 0, 1, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ort", 0, 2, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ansprechpartner_Anzeigen_Anrede", 0, 1, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Ansprechpartner_Anzeigen_Name", 0, 1, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Tel_Anzeige", 0, 1, 1))
        viewDef.RowTemplate.Rows(0).Cells.Add(New CellDefinition("Fax_Anzeige", 0, 1, 1))

        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Ansprechpartner_Technik_Anrede", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Ansprechpartner_Technik_Name", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Tel_Technik", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Fax_Technik", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Email_Technik", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("ISDN", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("DU_Datum", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("DU_Uhrzeit", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Vorlage_liegt_vor", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Beleg_liegt_vor", 0, 1, 1))
        viewDef.RowTemplate.Rows(1).Cells.Add(New CellDefinition("Bemerkung", 0, 1, 1))

        Me.rgvDaten.MasterGridViewTemplate.ChildGridViewTemplates(0).ViewDefinition = viewDef
    End Sub

Message = "Index was outside the area. It must not be negative and less than the listing. Parametername: index"

Can anyone help me?

[Jack]

Hi Christian Stettner,

Thank you for contacting us. I am not able to find the issue by just looking at this code snippet. Please, open a support ticket and send us your application. I will be glad to help you further, and I am looking forward to your reply.

Greetings,
Jack
the Telerik team

Instantly find answers to your questions on the new Telerik Support Portal.
Watch a video on how to optimize your support resource searches and check out more tips on the blogs.