MS_25112015_2

2015-11-25 17:41:30 +01:00
parent 6c4f760d5c
commit b7c3bc343d
6 changed files with 47 additions and 29 deletions
--- a/app/DD-Record-Organiser/frmUserKonfig.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig.vb
@@ -106,6 +106,11 @@

    Private Sub LoadGroupsForSelectedUser()
        Dim user As DataRowView = GetSelectedUserObject()
+        Try
+            Dim userID As Integer = user.Item(0)
+        Catch ex As Exception
+            Exit Sub
+        End Try
        If Not user Is Nothing Then
            Dim userID As Integer = user.Item(0)
            Dim SQL As String = String.Format("SELECT GROUP_NAME FROM VWPMO_USERS_GROUPS WHERE USER_ID = {0}", userID)