Ross
Sorry, I mixed up the code somehow in the 1st draft. Please check
amendments below:
Terry
--------------------------------------
Dim lnNumCols, lnColNum As SmallInt
lcColName, lcCol as String
Open Table "YourTable"
lnNumCols = TableInfo( "YourTable", TAB_INFO_NCOLS)
For lnColNum = 1 to lnNumCols
lcCol = "Col" + Rtrim$( Str$( lnColNum))
lcColName = ColumnInfo( "YourTable", lcCol, COL_INFO_NAME)
If Ucase$( lcColName) <> "OBJ" then
Alter Table YourTable Drop lcColName
End If
Next
Alter table YourTable Add NewCol ... Etc.
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 16850
