Radiobuttonlist in Funktion übergeben

psychomama

Mitglied
So ich muss mal wieder nerven...

Wie kann man eine im Programm erstellte Radiobuttonlist an eine Funktion übergeben, so dass ich in der Funktion damit weiterarbeiten kann
Hier mein Code:
Code:
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim con As New System.Data.OleDb.OleDbConnection(cDBPath)
        con.Open()

        Dim com As New System.Data.OleDb.OleDbCommand("SELECT * FROM azgbewertungen ORDER BY Bereich", con)
        Dim dr As System.Data.OleDb.OleDbDataReader
        
        Dim tabelle1 As New Table
        tabelle1.Width = 850
        Dim bereich As String
        bereich = ""

        dr = com.ExecuteReader()
        Do While dr.Read()

            Dim label1 As New Label
            Dim tabellenrow0 As New TableRow
            Dim tabellencell0 As New TableCell
            Dim tabellenrow123 As New TableRow
            Dim tabellencell1 As New TableCell
            Dim tabellencell2 As New TableCell
            Dim tabellencell3 As New TableCell
            Dim label2 As New Label
            Dim label3 As New Label
            Dim rbl1 As New RadioButtonList

            If bereich <> (dr("Bereich")) Then

                label1.CssClass = "head2"
                label1.Text = (dr("Bereich"))
                bereich = (dr("Bereich"))
                tabellencell0.Controls.Add(label1)
                tabellenrow0.Controls.Add(tabellencell0)
                tabelle1.Controls.Add(tabellenrow0)
            End If



            rbl1.ID = "rlb" & dr("ID")

            rbl1.RepeatDirection = RepeatDirection.Horizontal
            rbl1.CssClass = "rbl"
            rbl1.Items.Add(New ListItem("B1"))
            rbl1.Items.Add(New ListItem("B2"))
            rbl1.Items.Add(New ListItem("B3"))
            rbl1.Items.Add(New ListItem("B4"))
            rbl1.Items.Add(New ListItem("B5"))

            tabellencell1.Width = 283
            tabellencell2.Width = 283
            label2.CssClass = "head3"
            label3.CssClass = "cbl"

            label2.Text = (dr("Kriterium"))
            label3.Text = (dr("Beschreibung"))

            tabellencell1.Controls.Add(label2)
            tabellencell2.Controls.Add(label3)
            tabellencell3.Controls.Add(rbl1)

            tabellenrow123.Controls.Add(tabellencell1)
            tabellenrow123.Controls.Add(tabellencell2)
            tabellenrow123.Controls.Add(tabellencell3)
            tabelle1.Controls.Add(tabellenrow123)

        Loop
        dr.Close()

        Me.Beurteilung.Controls.Add(tabelle1)

        
        con.Close()

    End Sub

    Function BeurteilungAuslesen()


    End Function
 
Code:
BeurteilungAuslesen(rbl1 )

...

Function  BeurteilungAuslesen(meineList As RadioButtonList)
End Function
Einfach bei der Funktion die benötigten Parameter mit angeben.
 
Zurück