Hi, ich habe folgenden Quelltext. Es gibt 4 RadioButtons und je nachdem welcher aktiv ist, sollen 2 Werte in die entsprechende DataTable
eingetragen werden.
Der Quelltext funktioniert so, allerdings habe ich 4mal fast identische Befehle. Mein Problem ist, dass ich die DataTables zwar in ein Array packen, diese aber nicht verwenden kann.
In diesen Befehl bekomme ich auf Teufel komm raus keine Variable hinein.
Hat jemand ne Idee, wie man den Quellcode mit identischer Funktion kürzen kann?
eingetragen werden.
VB.NET-Quellcode
- If RadioButton1.Checked = True Then
- Dim row = DataSet01.DataTable1.NewDataTable1Row()
- row.Titel = TextBox1.Text
- row.Link = TmpLink
- DataSet01.DataTable1.AddDataTable1Row(row)
- ElseIf RadioButton2.Checked = True Then
- Dim row = DataSet01.DataTable2.NewDataTable2Row()
- row.Titel = TextBox1.Text
- row.Link = TmpLink
- DataSet01.DataTable2.AddDataTable2Row(row)
- ElseIf RadioButton3.Checked = True Then
- Dim row = DataSet01.DataTable3.NewDataTable3Row()
- row.Titel = TextBox1.Text
- row.Link = TmpLink
- DataSet01.DataTable3.AddDataTable3Row(row)
- ElseIf RadioButton4.Checked = True Then
- Dim row = DataSet01.DataTable4.NewDataTable4Row()
- row.Titel = TextBox1.Text
- row.Link = TmpLink
- DataSet01.DataTable4.AddDataTable4Row(row)
- End If
Der Quelltext funktioniert so, allerdings habe ich 4mal fast identische Befehle. Mein Problem ist, dass ich die DataTables zwar in ein Array packen, diese aber nicht verwenden kann.
In diesen Befehl bekomme ich auf Teufel komm raus keine Variable hinein.
Hat jemand ne Idee, wie man den Quellcode mit identischer Funktion kürzen kann?
Option strict = on
If it's stupid and it works it ain't stupid.
If it's stupid and it works it ain't stupid.