Thanks Falvio for the Mi address And Robert I will give a try this afternoon to your Alias suggestion.
Thanks Juanse temuko-Chile ----- Original Message ----- From: Robert Crossley <[EMAIL PROTECTED]> To: Juanse <[EMAIL PROTECTED]> Cc: MapInfo List <[EMAIL PROTECTED]> Sent: Tuesday, July 15, 2003 7:01 AM Subject: Re: MI-L Table value to a variable > Juanse, > > When you assign a column to a variable, you need it to be an alias type. > > Dim COlAlias, AreaAlias as Alias > Dim sString As String > > ColAlias = "campostipo."+columnatipo > .... > > sString = ColAlias > > The process suggests there may be some option for a bit of data modelling, > but that may take a lot longer than ripping up the progam as you suggest. > > Robert. > > > On Mon, 14 Jul 2003 07:37:23 -0400, Juanse <[EMAIL PROTECTED]> wrote: > > >> 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 > > > > > > > > -- > > Robert Crossley Agtrix P/L > 9 Short St > New Brighton 2483 > Far Southern Queensland > AUSTRALIA > > P: 02 6680 1309 > F: New Connection > M: 0419 718 642 > E: [EMAIL PROTECTED] > > --------------------------------------------------------------------- > List hosting provided by Directions Magazine | www.directionsmag.com | > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > Message number: 7638 > --- 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: 7641
