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:
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