Retrieves the company name that comes after a given company name.
Function NextCompany(ByVal CompanyName As String) As String
The name of a company, or an empty string.
'Lists all companies in the database
FunctionOutput = CF1.NextCompany("")
Do While Not FunctionOutput = ""
logWr "Next Company: " + FunctionOutput
FunctionOutput = CF1.NextCompany(FunctionOutput)
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.