DAtabase integriert
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user