Hi list, the following code finds a polyline, creates
a buffer (1.5m), copies the polyline attribute data
and adds it the the buffer...then deletes the polyline
object. Right, it works like a charm, except that
TempData (alias) which is supposed to hold the value
of each cell (then use in the update command)-> but
all it contains is 0 or "". there is data in the
cells, so I know it's a programming fault. The columns
are integers, text, floats...but I thought alias
variables would be able to pass that along without any
problems...
Any ideas
Ben
For Var_A = 1 to TableInfo(PathToTableName$(FileName),
TAB_INFO_NROWS)
Fetch Rec(Var_A) From PathToTableName$(FileName)
CurObj = PathToTableName$(FileName)+".OBJ"
Do Case ObjectInfo(CurObj, OBJ_INFO_TYPE)
Case OBJ_TYPE_PLINE
Count=Count+1
Select * From PathToTableName$(FileName) Where RowID =
Var_A into TempDump
Create Object As Buffer From TempDump Width 1.5 Units
"m" Type Cartesian Resolution 12 Into Table
PathToTableName$(FileName)
For Var_C = 1 to NumCols(TempDump)
Fetch Rec(Var_C) From TempDump
TempData = TempDump+".Col"+Var_C
newrow=(TableInfo(PathToTableName$(FileName),
TAB_INFO_NROWS)+Count)
String1="Update "+PathToTableName$(FileName)+" Set
"+ColNames(Var_C)+" = """+TempData+""" Where RowID =
"+newrow+""
run command string1
note(string1)
Next
Delete From PathToTableName$(FileName) Where RowID =
Var_A
End Case
Next
__________________________________________________
Do you Yahoo!?
U2 on LAUNCH - Exclusive greatest hits videos
http://launch.yahoo.com/u2
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 4028
