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