Hi list,
okay, the first polyline is updated normally from the
modifications give by you all...but after the first
polyline, all others revert to blank values: I'm
thinking it has to do with the number of rows and the
update getting th wrong value and it snowballs from
there:
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_A) From TempDump
TempData = "TempDump.Col"+Var_C
newrow=(TableInfo(PathToTableName$(FileName),
TAB_INFO_NROWS))
string1="Update "+PathToTableName$(FileName)+" Set
"+ColNames(Var_C)+" = """+TempData+""" Where RowID =
"+newrow+""
'note(string1)
run command string1
Next
Delete From PathToTableName$(FileName) Where RowID =
Var_A
Commit Table PathToTableName$(FileName)
Pack Table PathToTableName$(FileName) Graphic Data
Open Table FileName
End Case
Next
ideas??
Ben
__________________________________________________
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: 4044
