Initial commit

BEA - Kopie (2)/Excel/frmUpdate.vb

@@ -0,0 +1,45 @@
+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