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.
45 lines
1.2 KiB
45 lines
1.2 KiB
Public Class frmUpdate
|
|
|
|
Dim ma As String
|
|
Dim dt As DataTable
|
|
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
Sub New(ByVal Mitarbeiter As String, ByVal dt As DataTable)
|
|
InitializeComponent()
|
|
Me.ma = Mitarbeiter
|
|
Me.dt = dt
|
|
End Sub
|
|
|
|
|
|
Private Sub frmUpdate_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.txtMitarbeiter.Text = ma
|
|
For Each r In dt.Rows
|
|
Dim s As String
|
|
If r.item(4) = 1 Then
|
|
s = Str(r.item(2)) + " - " + r.item(3)
|
|
clb.Items.Add(s, True)
|
|
Else
|
|
s = r.item(2) + " - " + r.item(3)
|
|
clb.Items.Add(s, False)
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Abort
|
|
Me.Close()
|
|
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
End Class |