oDI = CREATEOBJECT("DbcInfo") dbc2Convert = "C:\Program Files\Microsoft Visual FoxPro 9\Samples\Northwind\northwind.dbc" aTables = oDI.GetDBCTableNames(dbc2Convert) for i = 1 to alen(aTables) ? aTables(i) next RETURN DEFINE CLASS DbcInfo AS Custom DIMENSION laTables[1] function GetDBCTableNames() lparameters myDBC select objectname as tablename ; from (myDBC) ; where objecttype = "Table" ; into array This.laTables return @This.laTables ENDDEFINE>Given the below:
>dbc2Convert = "\\tpdfiles\data\dfreeman\tip\data\rta\rta.dbc" >aTables = GetDBCTableNames(dbc2Convert) >for i = 1 to alen(aTables) >? aTables(i) >next > >************************************************************************** >function GetDBCTableNames() >lparameters myDBC >select objectname as tablename ; >from (myDBC) ; >where objecttype = "Table" ; >into array A1 >return A1 >>Why do I get an error that says A1 is not an array? The select produces 6 records.