如何向表中添加字段?

zxp

如何向表中添加字段?

skylark

To zxp:


Modifying an Existing Table


Once a table is created, you may want to modify it to add or remove columns, change the validation rule or refresh the link for a linked table.


The following example listings demonstrates how to add a new auto auto-increment column to an existing table.


DAO


Sub DAOCreateAutoIncrColumn()





        Dim db            As DAO.Database


        Dim tbl          As DAO.TableDef


        Dim fld          As DAO.Field


       


        'Open the database


        Set db = DBEngine.OpenDatabase("C:\nwind.mdb")


       


        ' Get the Contacts table


    <

zxp

太感谢了

rcylbx

SEEE