jj: small improvements on main

app/DD_PM_WINDREAM/frmMain.vb

@@ -19,7 +19,6 @@ Public Class frmMain
     Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
     Private CURR_DT_PROFILEGRID As DataTable
 
-
     Private RedDocuments As Integer = 0
     Private YellowDocuments As Integer = 0
     Private GreenDocuments As Integer = 0
@@ -28,7 +27,7 @@ Public Class frmMain
     Private GRID_LOAD_TYPE As String = "OVERVIEW"
     Private GRID_INV_COL_REMOVED As Boolean = False
 
-    Private Sub frmProfiles_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
+    Private Sub frmProfiles_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
         Try
             ClassAllgemeineFunktionen.LoginOut("LOGOUT")
 
@@ -43,15 +42,9 @@ Public Class frmMain
             My.Settings.frmMainSize = Me.Size
             My.Settings.frmMainPosition = Me.Location
             My.Settings.Save()
-        Catch ex As Exception
-            ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
-        End Try
-        Try
-            'Dim XMLPath = GetXML_LayoutName()
-            'GridViewProfile.SaveLayoutToXml(XMLPath)
             SaveLayout()
         Catch ex As Exception
-
+            ClassLogger.Add("Error in Save FormLayout: " & ex.Message)
         End Try
     End Sub
 
@@ -124,7 +117,7 @@ Public Class frmMain
                 tsstlblUser.Text = Environment.UserName
                 Decide_Load()
 
-            Catch ex As System.Exception
+            Catch ex As Exception
                 MsgBox("Fehler bei Laden des Formulars: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
             End Try
             If UniversalViewer = "" And Viewer = "uviewer" Then
@@ -178,10 +171,10 @@ Public Class frmMain
     Function Refresh_ConnectionString()
         Try
             TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPM_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.VWPM_PROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
+            TBPM_USERTableAdapter.Connection.ConnectionString = MyConnectionString
+            VWPM_PROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString
 
             Return True
         Catch ex As Exception
@@ -653,13 +646,6 @@ Public Class frmMain
 
                     End Try
                 End If
-
-
-
-
-
-
-
             End If
         Catch ex As Exception
             ClassLogger.Add("LoadProfile_PM - Fehler: " & ex.Message)
@@ -810,7 +796,7 @@ Public Class frmMain
             If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
                 info.GroupText = info.GroupValueText
 
-                Dim _color As String
+                Dim _color As String = "Grey"
 
                 For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
                     If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
@@ -825,7 +811,7 @@ Public Class frmMain
                         info.Appearance.BackColor = Color.LightGreen
                     Case "Yellow"
                         info.Appearance.BackColor = Color.LightYellow
-                    Case Else
+                    Case "Grey"
                         info.Appearance.BackColor = Color.LightGray
                 End Select