jj: Fix error in GetSearchDocuments & GetIndexValue
This commit is contained in:
@@ -485,7 +485,7 @@ Public Class Windream2
|
||||
Case Constants.SEARCH_TYPE_QUICK_SEARCH
|
||||
Dim oQuickSearch As New WMQuickSearch With {
|
||||
.WMSession = Session,
|
||||
.SearchProfilePath = SearchFilePath
|
||||
.SearchProfilePath = oProfilePath
|
||||
}
|
||||
oQuickSearch.ClearSearch()
|
||||
oQuickSearch.LoadSearchProfile(oProfileName)
|
||||
@@ -494,7 +494,7 @@ Public Class Windream2
|
||||
Case Constants.SEARCH_TYPE_INDEX_SEARCH
|
||||
Dim oIndexSearch As New WMIndexSearch With {
|
||||
.WMSession = Session,
|
||||
.SearchProfilePath = SearchFilePath
|
||||
.SearchProfilePath = oProfilePath
|
||||
}
|
||||
oIndexSearch.ClearSearch()
|
||||
oIndexSearch.LoadSearchProfile(oProfileName)
|
||||
@@ -503,7 +503,7 @@ Public Class Windream2
|
||||
Case Constants.SEARCH_TYPE_OBJECTTYPE_SEARCH
|
||||
Dim oObjecttypeSearch As New WMObjectTypeSearch With {
|
||||
.WMSession = Session,
|
||||
.SearchProfilePath = SearchFilePath
|
||||
.SearchProfilePath = oProfilePath
|
||||
}
|
||||
oObjecttypeSearch.ClearSearch()
|
||||
oObjecttypeSearch.LoadSearchProfile(oProfileName)
|
||||
@@ -676,7 +676,7 @@ Public Class Windream2
|
||||
Return oResult
|
||||
End If
|
||||
|
||||
If TypeOf oValues Is Object Then
|
||||
If TypeOf oValues Is IEnumerable Then
|
||||
For Each oValue In oValues
|
||||
oResult.Add(oValue)
|
||||
Next
|
||||
|
||||
Reference in New Issue
Block a user