update Juni 2023

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb

@@ -68,8 +68,10 @@
             Me.cbboxKontaktSD.DataSource = Kontaktsd_data
             Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
                 Me.cbboxKontaktSD.ValueMember = "KeyValue"
-                Cursor = Cursors.Default
+            Cursor = Cursors.Default
-            Else
+            Me.cbboxKontaktSD.EndUpdate()
+            Me.cbboxKontaktFB.EndUpdate()
+        Else
                 Me.Panel2.Height = 1
             Me.Height = Me.Height - 227
             Me.cbboxKontaktSD.EndUpdate()

_MyBeziehungen/Beziehungen.vb

@@ -17,7 +17,7 @@ Public Class Beziehungen
 
     Dim m_ConnectionString As String
     Dim FilterDoubleClicked As Boolean = True
-    <DefaultValue(""), Description("ConnectionString"), Category("Options")> _
+    <DefaultValue(""), Description("ConnectionString"), Category("Options")>
     Public Property ConnectionString() As String
         Get
             ConnectionString = m_ConnectionString
@@ -27,14 +27,14 @@ Public Class Beziehungen
                 m_ConnectionString = Value
                 Globals.conn.sConnectionString = m_ConnectionString
                 Datenklasse.ConnectionString = m_ConnectionString
-                init_comp()
+                Init_Comp()
             End If
         End Set
     End Property
 
 
     Dim m_Mitarbeiternr As Integer
-    <DefaultValue(1), Description("Mitarbeiternr"), Category("Options")> _
+    <DefaultValue(1), Description("Mitarbeiternr"), Category("Options")>
     Public Property Mitarbeiternr As Integer
         Get
             Mitarbeiternr = m_Mitarbeiternr
@@ -49,7 +49,7 @@ Public Class Beziehungen
     End Property
 
     Dim m_TempFilePath As String
-    <DefaultValue("h:\tssettings\bea"), Description("Temp Filepath"), Category("Options")> _
+    <DefaultValue("h:\tssettings\bea"), Description("Temp Filepath"), Category("Options")>
     Public Property TempFilePath As String
         Get
             TempFilePath = m_TempFilePath
@@ -63,7 +63,7 @@ Public Class Beziehungen
     End Property
 
     Dim m_keyvalue As Integer
-    <DefaultValue(1), Description("KeyValue"), Category("Options")> _
+    <DefaultValue(1), Description("KeyValue"), Category("Options")>
     Public Property KeyValue As Integer
         Get
             KeyValue = m_keyvalue
@@ -71,13 +71,13 @@ Public Class Beziehungen
         Set(value As Integer)
             If m_keyvalue <> value Then
                 m_keyvalue = value
-                refresh_details()
+                Refresh_Details()
             End If
         End Set
     End Property
 
     Dim m_Type As String
-    <DefaultValue(""), Description("KeyValue"), Category("Options")> _
+    <DefaultValue(""), Description("KeyValue"), Category("Options")>
     Public Property Type As String
         Get
             Type = m_Type
@@ -91,7 +91,7 @@ Public Class Beziehungen
     End Property
 
     Dim m_Generic_Event_Handler As _Generic_Event_Handler.Generic_Event_Handler
-    <DefaultValue(""), Description("Type"), Category("Options")> _
+    <DefaultValue(""), Description("Type"), Category("Options")>
     Public Property Generic_Event_Handler
         Get
             Generic_Event_Handler = m_Generic_Event_Handler
@@ -133,7 +133,7 @@ Public Class Beziehungen
 
     End Sub
     Public Function Refresh_Details(Optional Position As Integer = 0) As Boolean
-        If Me.IsRefreshed Then Exit Function
+        'If Me.IsRefreshed Then Exit Function
         Dim cid As Boolean = False
         Try
             Me.C1Beziehungen.Enabled = False
@@ -363,7 +363,7 @@ Public Class Beziehungen
 
     Private Sub C1Beziehungen_MouseUp(sender As Object, e As MouseEventArgs) Handles C1Beziehungen.MouseUp
         If C1Beziehungen.PointAt(e.X, e.Y) = C1.Win.C1TrueDBGrid.PointAtEnum.AtFilterBar Then
-            filterdoubleclicked = True
+            FilterDoubleClicked = True
             Exit Sub
         End If
         FilterDoubleClicked = False