You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
1.2 KiB
40 lines
1.2 KiB
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
|