neu

Aviso/cEasyBinding.vb

@@ -10,7 +10,7 @@ Public Class cEasyBinding
     Dim connection As SqlConnection
     Dim initialized = False
 
-    '  Public updateImmediately = False
+    Public updateImmediately = False
 
     Sub New(Optional conn As String = "AVISO")
         Select Case conn
@@ -58,7 +58,7 @@ Public Class cEasyBinding
 
 
     Public Function updateBinding(Optional tablename As String = "", Optional ContinueUpdateOnError As Boolean = False) As Boolean
-        MsgBox("UPD")
+
         If Not initialized Then Return True
         Try
             bindingSource.EndEdit()
@@ -89,7 +89,7 @@ Public Class cEasyBinding
     End Sub
 
 
-    ' Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged
-    '    If updateImmediately Then updateBinding()
-    ' End Sub
+    Private Sub bindingdataTable_ColumnChanged(sender As Object, e As DataColumnChangeEventArgs) Handles bindingdataTable.ColumnChanged
+        If updateImmediately Then updateBinding()
+    End Sub
 End Class