AccpacFinder.ViewFinder in VB.NET

[Bluejay07]

Hello,

In VB 6, I used the following code to access the view finder.

Dim oFind As AccpacFinder.ViewFinder

Set oFind = New AccpacFinder.ViewFinder
oFind.Session = cmSess
oFind.DisplayName = CSCOMPANY.Name
oFind.ViewID = "AR0024"
oFind.ViewOrder = 0
oFind.SearchFieldIDs = Array(1, 2, 3)
oFind.DisplayFieldIDs = Array(1, 2, 3)
oFind.ReturnFieldIDs = Array(1, 2)
oFind.Filter = ""
oFind.Finder

If Not IsEmpty(oFind.ReturnFieldValues) Then
   If Len(oFind.ReturnFieldValues(0)) > 0 Then
     txtID.text = Trim$(oFind.ReturnFieldValues(0))
   End if
End if

Set oFind = Nothing

What would the equivalent to this be in VB.NET? I have searched but have not found a solution.

Thanks.

 

[Bluejay07]

Hello,

After several attempts, I seem to have figured this out.

For anyone else that may be interested, here is the code I used.

Dim oFind As AccpacFinder.ViewFinder
Dim SearchArray() As Object = {1, 2, 3}
Dim DisplayArray() As Object = {1, 2, 3}
Dim ReturnArray() As Object = {1, 2}  

Try
   Me.Cursor = Cursors.WaitCursor

   oFind = New AccpacFinder.ViewFinder
   oFind.Session = cmSESS
   oFind.ViewID = "AR0024"
   oFind.ViewOrder = 0
   oFind.SearchFieldIDs = SearchArray
   oFind.DisplayFieldIDs = DisplayArray
   oFind.ReturnFieldIDs = ReturnArray
   oFind.Filter = ""
   oFind.Finder()

   If Not IsNothing(oFind.ReturnFieldValues) Then
      txtID.Text = Trim(oFind.ReturnFieldValues(0))
   End If

   oFind = Nothing

Catch ex as Exception
   Messagebox.Show(ex.message)
End Try