MS SAP

app/DD-Record-Organizer/frmRight_Management.vb

@@ -35,7 +35,12 @@
             Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
 
             If DD_DMSDataSet.TBPMO_RIGHT_GROUP.GetChanges Is Nothing = False Then
-                Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = USER_USERNAME
+                Try
+
+                    Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = USER_USERNAME
+                Catch ex As Exception
+
+                End Try
                 Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
                 Me.TBPMO_RIGHT_GROUPTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_GROUP)
                 tschangedlabel.Text = "Right Group changed - " & Now
@@ -183,8 +188,17 @@ WHERE T2.SHORT_NAME = 'ADDI'   AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
                 Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
                 newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
                 newUserRow.Username = row.Item("USERNAME")
-                newUserRow.Surname = row.Item("NAME")
-                newUserRow.Prename = row.Item("PRENAME")
+                Try
+                    newUserRow.Surname = row.Item("NAME")
+                Catch ex As Exception
+                    newUserRow.Surname = ""
+                End Try
+                Try
+                    newUserRow.Prename = row.Item("PRENAME")
+                Catch ex As Exception
+                    newUserRow.Prename = ""
+                End Try
+
                 Try
                     newUserRow.Email = row.Item("EMAIL")
                 Catch ex As Exception