select SufficientlyLongName as slong1 , sufficientlyLongSurname as slongSuretc etc, and even so I'd have the single place where to look up the meaning of those names. Alter table is, IMO, something designed as a tool for the DBA, and I use it extensively when maintaining the structure of the tables. Tables, not cursors. If you feel you should change the structure of your cursor, something's wrong (IOW, not Dragan compatible :) with how you create the cursor.
*===========================================* * FieldList Intellisense-Script * * * * Copyright (c) 2002 All Rights Reserved. * * Frank Dietrich Datentechnik * * Leo-Baeck-Str. 22 * * 14165 Berlin * * PHONE : +49-30-845 777-0 * * FAX : +49-30-845 777-19 * * CIS : 100322,333 * * e-mail: frank.dietrich@dd-tech.de * * 20.02.2002 v.1.0 * *===========================================* *=======================================================* * This Intellisense-script creates a comma-Delimited * * List of Fieldnames of any currently used Cursor. * * The list can contain no, real- (USER.NAME) or local * * aliases (A.NAME). * * Additionally an "AS"-clause can be added with the * * long field-Name (Caption) if the selected alias * * belongs to a database. * *=======================================================* lparameters oFoxCode local lc_Alias, lc_Prefix, lc_List, ln_i, ln_WasSel local ll_LongName, lc_LongName, n lc_Alias = Inputbox("Select alias to get fields from?", "FieldList-Creator", alias()) if empty(lc_Alias) or ! used(lc_Alias) return oFoxcode.UserTyped endif lc_List = "" ln_WasSel = select() select (lc_Alias) n= fcount() for ln_i = 1 to n lc_List = lc_List + space(8) + lower(field(ln_i) ) if ln_i<> n lc_List = lc_List + ",;"+chr(13) endif endfor &&* ln_i = 1 to fcount() select (ln_WasSel) oFoxCode.Valuetype = "V" return lc_ListI have versions of this with nvl(field, "") as field, without semicolons, with comma moved to precede the next line - which isn't too hard to add. It's just plain generated text anyway. So I just type "fieldlist" in an empty line, and I get a full list of fields. I only need to add Select before, and From... Into... where... after it.