Public Class clsStatus
    Dim stammdaten As New DB.clsStammdaten
    Dim Status As New DataTable

    Sub New()
        MyBase.New
        Status = stammdaten.Get_Stammdaten("PruefSchrittStatus", "Beschreibung")
    End Sub

    Public Function Get_Mögliche_Status(ByVal aktuellerStatus As Integer, ByRef cbbox As ComboBox) As DataTable
        Dim dt As New DataTable
        dt = Status.Copy
        dt.Rows.Clear()

        Select Case aktuellerStatus
            Case 1, 2
                For Each r As DataRow In Status.Rows
                    If r.Item(0) = 1 Then addrow(dt, r)
                    If r.Item(0) = 2 Then addrow(dt, r)
                    If r.Item(0) = 3 Then addrow(dt, r)
                Next

        End Select
        cbbox.DataSource = Nothing
        cbbox.DataSource = dt
        cbbox.DisplayMember = "Bezeichnung"
        cbbox.ValueMember = "pruefschrittstatusnr"
        cbbox.SelectedValue = aktuellerStatus
    End Function

    Sub addrow(ByRef dt As DataTable, dr As DataRow)
        Dim r As DataRow = dt.NewRow
        For Each c As DataColumn In dt.Columns
            r.Item(c.ColumnName) = dr.Item(c.ColumnName)
        Next
        dt.Rows.Add(r)
    End Sub

End Class