DAtabase integriert

This commit is contained in:
2023-05-22 16:55:44 +02:00
parent 2db575d944
commit c2deb54f11
114 changed files with 8526 additions and 14722 deletions

View File

@@ -111,7 +111,7 @@ Public Class frmGlobalSearch
"where T.RECORD_ID = TR.GUID AND TR.FORM_ID = TFV.FORM_ID AND T.value like '%{1}%' ORDER BY T.RECORD_ID", USER_LANGUAGE, txtSearch.Text)
End Sub
Private Function Refresh_Records()
Dim DT_RECORD_RESULT = ClassDatabase.Return_Datatable(sel_Records)
Dim DT_RECORD_RESULT = MYDB_ECM.GetDatatable(sel_Records)
If Not IsNothing(DT_RECORD_RESULT) Then
SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.None
SplitContainerMain.Collapsed = False
@@ -139,7 +139,7 @@ Public Class frmGlobalSearch
End If
End Function
Private Function Refresh_Files()
Dim DT_Files = ClassDatabase.Return_Datatable(sel_FT, True)
Dim DT_Files = MYDB_ECM.GetDatatable(sel_FT)
If Not IsNothing(DT_Files) Then
SplitContainerMain.CollapsePanel = DevExpress.XtraEditors.SplitCollapsePanel.None
SplitContainerMain.Collapsed = False