MS DocResult ENtitySearch

This commit is contained in:
2021-06-28 10:32:13 +02:00
parent 136c4dec6e
commit e9fb65eddf
5 changed files with 1083 additions and 717 deletions

View File

@@ -47,6 +47,12 @@ Public Class frmDocSearchResult
Load_DocGrid_Layout()
GridControlDocSearch.DataSource = DT_RESULT
GridControlDocSearch.DataSource = DT_RESULT
Try
GridViewDoc_Search.Columns.Item("FULL_FILENAME").Visible = False
Catch ex As Exception
End Try
'If GridViewDoc_Search.RowCount > 15000 Then
' ToolStripButton2.Enabled = False
'Else
@@ -105,7 +111,7 @@ Public Class frmDocSearchResult
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID"))
ClassHelper.File_open(row.Item("FULL_FILENAME"), row.Item("DocID"))
If CURRENT_OFFICE_FILE_CHANGED = True Then LoadDocSearch(True)
Next
Else
@@ -124,7 +130,7 @@ Public Class frmDocSearchResult
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
ClassHelper.Open_Folder(row.Item("DOC_PATH"), row.Item("DOC_ID"))
ClassHelper.Open_Folder(row.Item("FULL_FILENAME"), row.Item("DocID"))
Next
End Sub
@@ -170,12 +176,12 @@ Public Class frmDocSearchResult
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
If row.Item("FULL_FILENAME") <> "" Then
Cursor = Cursors.WaitCursor
Dim sei As New SHELLEXECUTEINFO
sei.cbSize = Marshal.SizeOf(sei)
sei.lpVerb = "properties"
sei.lpFile = row.Item("DOC_PATH")
sei.lpFile = row.Item("FULL_FILENAME")
sei.nShow = SW_SHOW
sei.fMask = SEE_MASK_INVOKEIDLIST
If Not ShellExecuteEx(sei) Then