Method
Retrieves the company name that comes after a given company
name.
Category
Database
Syntax
Function NextCompany(ByVal CompanyName As String) As String
CompanyName
The name of a company, or an empty string.
Example
'Testing "NextCompany"
'Lists all companies in the database
FunctionOutput = CF1.NextCompany("")
Do While Not FunctionOutput = ""
logWr "Next Company: " + FunctionOutput
FunctionOutput = CF1.NextCompany(FunctionOutput)
Loop
Comments
NextCompany returns the company name that follows CompanyName. You
can scan all the company names in a database, by executing
NextCompany in a loop. If you invoke this function with CompanyName
set to an empty string, the first company name in the database is
returned. If you then call NextCompany using this result as an
argument, the function returns the second company name, and so on,
until the entire list has been scanned. When the end of the list is
reached, the function returns an empty string.
This function does not open or close any companies.