WIP

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -194,5 +194,18 @@ Public Class ClassInit
 
     End Function
 
-
+    Public Shared Sub Refresh_Profile_Links()
+        Try
+            Dim oSql = String.Format("SELECT * FROM VWCW_USER_PROFILE WHERE USER_ID = {0} OR GROUP_ID IN (SELECT DISTINCT GUID FROM TBDD_GROUPS WHERE GUID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {0}))", USER_ID)
+            DT_USER_PROFILES = clsDatabase.Return_Datatable(oSql)
+            If DT_USER_PROFILES.Rows.Count = 0 Then
+                MsgBox("No profiles configured for this user so far!", MsgBoxStyle.Exclamation)
+            Else
+                oSql = $"SELECT * FROM VWCW_PROFILE_REL_WINDOW WHERE USER_ID = {USER_ID}"
+                DTPROFILE_REL_WINDOW = clsDatabase.Return_Datatable(oSql)
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Refresh_Profile_Links: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class