Hi Michael,
I wrote this subroutine for removing all column indices for any given table:
*********************************************************
include "mapbasic.def"
declare sub RemoveTableIndex(byval TableName as string)
sub RemoveTableIndex(byval TableName as string)
dim i as smallint
for i = 1 to TableInfo(TableName,TAB_INFO_NCOLS)
if ColumnInfo(TableName,"COL"&i,COL_INFO_INDEXED) then
drop index TableName(ColumnInfo(TableName,"COL"&i,COL_INFO_NAME))
end if
next
end sub
*********************************************************
Use it like this on any open table:
open table "C:\temp\Parcel.TAB"
call RemoveTableIndex(Parcel)
Cheers,
Simon
=====================================
Simon O'Keefe
GIS & Mapping Specialist
Groundtruth
mobile: 0409 413 890
office: 03 5345 3966
email: [EMAIL PROTECTED]
mail: PO Box 290
Clunes VIC 3370
=====================================
--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 9555
