ms Änderungen RS Marvin

SchaumKommiCollo/KommiCollo/frmAbschluss.vb

@@ -285,8 +285,7 @@
             End If
         End If
     End Sub
-
-    Private Sub cmbMandant_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbMandant.SelectedIndexChanged
+    Sub Refresh_Grid()
         VWAbschlussDataGridView.Visible = False
         VWAbschlussDataGridView.Dock = DockStyle.None
         VWHUP_REPORT1DataGridView.Visible = False
@@ -310,6 +309,9 @@
             btnAbschluss.Text = "Mandanten '" & cmbMandant.Text & "' abschliessen"
 
         End If
+    End Sub
+    Private Sub cmbMandant_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbMandant.SelectedIndexChanged
+        Refresh_Grid()
 
     End Sub
 
@@ -336,4 +338,8 @@
         End Try
 
     End Sub
+
+    Private Sub frmAbschluss_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Refresh_Grid()
+    End Sub
 End Class