MS

2016-09-21 16:15:47 +02:00
parent 2cc5835380
commit 7c9da92dcd
13 changed files with 1037 additions and 565 deletions
--- a/app/DD-Record-Organiser/frmUserKonfig.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig.vb
@@ -18,7 +18,7 @@
        Load_User()
        Load_Clients()
    End Sub
-    Sub Load_User()
+    Public Sub Load_User()
        Try
            Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER)
@@ -79,6 +79,7 @@
        Dim frm As New frmUserKonfig_AddUsers
        Cursor = Cursors.WaitCursor
        frm.ShowDialog()
+
        Load_User()
        Cursor = Cursors.Default
    End Sub