用VFP列出ACCESS所有表的字段结构，含标题。

     set safety off
     local oo,lcStr,lcMdbFile,i,x,lnFields,lcTableName,lnFieldtype,lcCurdir
     lcCurdir = sys(5) + curdir()
     lcNowdir = getdir()
     cd (lcNowdir)
     oo = NEWOBJECT('Access.Application')
     oo.AutomationSecurity = 1
     oo.UserControl           = .F.
     lcMdbFile = getFile('mdb')
     if not empty(lcMDBFile)
        oo.OpenCurrentDatabase(lcMDBFile)
         lnTables = oo.CurrentDb.TableDefs.Count
         for i = 5 to lnTables - 1
              lcStr = ''
              lnFields = oo.CurrentDb.TableDefs(i).fields.count
              *lcTableName = JUSTSTEM(lcMDBFile) + '_' + oo.CurrentDb.TableDefs(i).Name
              lcTableName = oo.CurrentDb.TableDefs(i).Name
              *use
              if i = 5
              *    create Table (lcTableName) (字段名 char(10),类型 char(10),宽度 char(4),小数位 char(4),标题 char(50),对应字段 char(20))
                   create Table blank (字段名 char(9),类型 char(10),宽度 char(2),小数位 char(4),标题 char(24),对应字段 char(20),表名 char(10))