Private Sub AddVerkaeufer()
        'Ermittlung der Verkäufer die beim Anklicken des entsprechenden Reiters
        '"Warengruppen pro Verkäufer" als Radiobuttons angelegt werden"
 
        Dim strSQL As String
        Dim i As Integer
        Dim pos As Integer = 88 'y position für die Radiobuttons
        Dim sqlDtVerkaeufer As New DataTable()
        Dim rdbVerkaeufer() As RadioButton
 
        'SQL erstellen um die Verkäufernr. und -namen zu erhalten
        strSQL = "select a.verkaeufer, b.verkaeufername from ghs_avd a inner" & _
          "join ghs_verkaeufer b on "
        strSQL &= "a.verkaeufer = b.verkaeufer where a.filialnr = ' " & _
        Me.cboFiliale.SelectedValue & "'"
        strSQL &= " and a.datum = '" & _
        Me.DateTimePicker1.Value.ToShortDateString & "'"
        strSQL &= " and a.filialnr = b.filialnr group by a.verkaeufer," & _
        "b.verkaeufername order by a.verkaeufer"
 
        Try
            sqlAdap = New SqlClient.SqlDataAdapter(strSQL, sqlConn)
            sqlAdap.Fill(sqlDtVerkaeufer)
            rdbVerkaeufer = Array.CreateInstance(GetType(RadioButton), _
              sqlDtVerkaeufer.Rows.Count())  'Wieviele Rdbs im Array
            For i = 0 To sqlDtVerkaeufer.Rows.Count() - 1
                rdbVerkaeufer(i) = New RadioButton()
                With rdbVerkaeufer(i)
                    .Name = "rdbverkaeufer" & sqlDtVerkaeufer.Rows(i).Item(0)
                    .Text = Format(sqlDtVerkaeufer.Rows(i).Item(0), "0000") & _
                      vbCrLf & sqlDtVerkaeufer.Rows(i).Item(1)
                    .ForeColor = System.Drawing.Color.Red
                    .Width = 90
                    .Height = 40
                    .Location = New System.Drawing.Point(422, pos)
                    AddHandler .CheckedChanged, AddressOf _
                      rdbVerkaeufer_checkchanged
                End With
 
                Me.TabWgrDayVK.Controls.Add(rdbVerkaeufer(i))
                pos += 45
            Next
 
        Catch ex As Exception
            MsgBox("Fehler beim Ermitteln der Verkäufer: " & ex.ToString, _
              MsgBoxStyle.Critical, "DB-Fehler")
        End Try
 
    End Sub
 
    Private Sub rdbVerkaeufer_CheckChanged(ByVal sender As Object, ByVal e As _
      EventArgs)
'Verkäufernr aus Texteigenschaft auslesen
        MessageBox.Show(CInt(sender.text.substring(0, 4)))
    End Sub