ms

app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb

@@ -26,6 +26,9 @@ End Class
 
 Namespace DD_DMSLiteDataSetTableAdapters
     Partial Public Class TBPM_PROFILETableAdapter
+        Private Sub TBPM_PROFILETableAdapter_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed
+
+        End Sub
     End Class
 
     Partial Public Class TBDD_USERTableAdapter

app/DD_PM_WINDREAM/frmAdministration.resx

@@ -2134,7 +2134,7 @@
     <value>3, 3, 3, 3</value>
   </data>
   <data name="TabPage12.Size" type="System.Drawing.Size, System.Drawing">
-    <value>962, 313</value>
+    <value>962, 316</value>
   </data>
   <data name="TabPage12.TabIndex" type="System.Int32, mscorlib">
     <value>1</value>

app/DD_PM_WINDREAM/frmAdministration.vb

@@ -1376,12 +1376,8 @@ Public Class frmAdministration
         If formloaded = False Then
             Exit Sub
         End If
-        If UNSAVED_CHANGES_PROFILE Then
-            CHECK_QUESTION_CHANGES()
-        End If
         ' Check_Changes()
         change_BindingSource = True
-        CHECK_QUESTION_CHANGES()
     End Sub
     Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
         If formloaded = False Then
@@ -1506,14 +1502,6 @@ Public Class frmAdministration
         '
     End Sub
 
-    Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridViewProfile.ValidateRow
-        If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
-            Exit Sub
-
-        End If
-        change_BindingSource = True
-    End Sub
-
     Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged
         If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
             Exit Sub
@@ -1722,19 +1710,26 @@ Public Class frmAdministration
 
 
     Private Sub TextBox_Leave(sender As Object, e As EventArgs) Handles NAMETextBox.Leave, TITLETextBox.Leave, DESCRIPTIONTextBox.Leave, WD_SEARCHTextBox.Leave, FINAL_TEXTTextBox.Leave, MOVE2FOLDERTextBox.Leave, WORK_HISTORY_ENTRYTextBox.Leave
-        If formloaded = False Then
-            Exit Sub
-        End If
-        If change_BindingSource = True Then
+        If formloaded = False Or IsNothing(CURR_TEXT_CONTROL_CONTENT) Then
             Exit Sub
         End If
+        'If change_BindingSource = True Then
+        '    Exit Sub
+        'End If
         Dim oBox As TextBox = sender
         If Len(oBox.Text) > 0 Then
+
             If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then
                 UNSAVED_CHANGES_PROFILE = True
             End If
         End If
     End Sub
 
+    Private Sub TBPM_PROFILEBindingSource_DataError(sender As Object, e As BindingManagerDataErrorEventArgs) Handles TBPM_PROFILEBindingSource.DataError
 
+    End Sub
+
+    Private Sub TBPM_PROFILETableAdapter_Disposed(sender As Object, e As EventArgs) Handles TBPM_PROFILETableAdapter.Disposed
+
+    End Sub
 End Class