Re: MI-L Table value to a variable

[Robert Crossley]

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