![]() | |
ConneXionFindAllLookupsFiltered Method |
Namespace: ConneXion
public ConneXionResult FindAllLookupsFiltered( Lookup Lookup, string sStart, long lRows, OffsetType OffsetType, ref Lookup[] Lookups )
Private Sub btnFindAllLookupsFiltered_Click(sender As Object, e As EventArgs) Handles btnFindAllLookupsFiltered.Click Dim oConneXionLookup As New ConneXion.ConneXion Dim oLookup As New ConneXion.Lookup Dim oResult As ConneXion.ConneXionResult Dim oLookups() As ConneXion.Lookup Dim sStart As String = "A" Dim lLong As Long = 5 oLookup.TAMUserName = "EXEC" oLookup.TAMPassword = "PSWD" oLookup.LicenseKey = "1234567 1" oLookup.TAMCentralAgency = "DEMOAG1" oLookup.LookupType = "Employee" oResult = oConneXionLookup.FindAllLookupsFiltered(oLookup, sStart, lLong, ConneXion.OffsetType.otRowNumer, oLookups) If oResult.Success = True Then MessageBox.Show("FindAllLookups for " & oLookup.LookupType & " was successful. " & oResult.Description & ".") Else txtResult.Text = "Number: " & oResult.Number & vbCrLf & "Description: " & oResult.Description & vbCrLf & "TAMErrorNumber: " & oResult.TAMErrorNumber & vbCrLf & "TAMErroDesc: " & oResult.TAMDescription End If End Sub