> Hi everyone > > I need a bit of help here. It could be that my whole approach is incorrect, > however here is the question, then the situation and follows the code I have > manage to build and that doesn't work. > > Question? > > How can i pass the value of a table in a given cell (tablename.column,row) > to a string variable? > > Situation: > > I have 8 tables with polygon representing building in a city by type of use > (commerce, infraestrucutre, etc) > Each table have a column identifiying the use of each building with in the > type of use type (small comerce with in table comerce) > I have a summary table of block where i want to put in new columns the sum > of areas of the buildings by type, Each new column is a different building > type. > > The code; > 'here Open tables need > > dim numvueltas as integer > dim nombretabla as string > dim columnatipo as string > dim m2 as integer > dim areaauxiliar as string > dim i, y as integer > dim AreaAislado as string > > for i = 1 to 8 > fetch Rec i from tablamaster > nombretabla =tablamaster.nombretabla > numvueltas = tablamaster.numvueltas > columnatipo = tablamaster.columnatipo > dim variable, variable2 as string > > Select * from nombretabla group by columnatipo order by columnatipo into > campostipo > variable = "campostipo."+columnatipo > print variable > for y = 1 to numvueltas > fetch Rec y from campostipo > variable2 = ' here i have the problem unless it is the wrong > approach and this way it can�t be done? > print variable2 > select * from nombretabla where columnatipo = variable2 into auxiliar > Commit Table auxiliar As > "C:\FINAVANCE\Evidencias\Catastro\auxiliar.tab" TYPE NATIVE Charset > "WindowsLatin1" > Close Table auxiliar Interactive > Open Table "C:\FINAVANCE\Evidencias\Catastro\auxiliar.TAB" > Interactive > AreaAislado = "Area"+variable2 ' here also have hte same problem > Add Column "ZonasconDatos" (AreaAislado Float) From auxiliar Set To > sum(auxiliar.area) Where Contains > Drop Table auxiliar > next > next > Commit Table ZonasconDatos As "ZonascondatosCatastro.tab" TYPE NATIVE > Charset "WindowsLatin1" > End Program > > TIA > > Juanse > temuko-Chile > > > --- > > File has not been scanned > > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.500 / Virus Database: 298 - Release Date: 10/07/03 > > > --- > Outgoing mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.500 / Virus Database: 298 - Release Date: 10/07/03 >
--- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.500 / Virus Database: 298 - Release Date: 10/07/03 --------------------------------------------------------------------- List hosting provided by Directions Magazine | www.directionsmag.com | To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] Message number: 7633
