ms

GUIs.ZooFlow/ModuleHelpers.vb

@@ -2,7 +2,6 @@
 Imports System.Text.RegularExpressions
 
 Module ModuleHelpers
-
     ''' <summary>
     ''' Überprüft einen Wert auf verschiedene Arten von "Null" und gibt einen Standard-Wert zurück, wenn der Wert "Null" ist.
     ''' </summary>
@@ -55,7 +54,8 @@ Module ModuleHelpers
         End Try
     End Function
     Public Sub Refresh_RegexTable()
-        My.Application.BASE_DATA_DT_REGEX = My.Database.GetDatatable("SELECT * FROM TBGI_FUNCTION_REGEX")
+        Dim oSQL = "select * from TBGI_FUNCTION_REGEX"
+        My.Application.Globix.DT_FUNCTION_REGEX = clsDataASorDB.GetDatatable("DD_ECM", oSQL, "TBGI_FUNCTION_REGEX", "", "")
     End Sub
     Public Function FilterDatatable(myDatatable As DataTable, myFilter As String, mycheckColumn As String, pSortString As String, returnDT As Boolean) As Object
         Try