Updaet Version 1.6 - 20121221

_MyBeziehungen/Beziehungen.vb

@@ -5,6 +5,16 @@ Imports C1.Win.C1TrueDBGrid
 Public Class Beziehungen
 
 #Region "Properties"
+    Dim m_IsRefreshed As Boolean = False
+    Property IsRefreshed As Boolean
+        Get
+            Return m_IsRefreshed
+        End Get
+        Set(value As Boolean)
+            m_IsRefreshed = value
+        End Set
+    End Property
+
     Dim m_ConnectionString As String
     Dim FilterDoubleClicked As Boolean = True
     <DefaultValue(""), Description("ConnectionString"), Category("Options")> _
@@ -123,6 +133,7 @@ Public Class Beziehungen
 
     End Sub
     Public Function Refresh_Details(Optional Position As Integer = 0) As Boolean
+        If Me.IsRefreshed Then Exit Function
         Dim cid As Boolean = False
         Try
             Me.C1Beziehungen.Enabled = False
@@ -191,6 +202,7 @@ Public Class Beziehungen
         Catch
         End Try
         Me.C1Beziehungen.Enabled = True
+        Me.IsRefreshed = True
         Return cid
     End Function