我如何将表中的字段自动读到combo列表中去呀？

初学，请多指教。

• · 推荐参考文章：
• SOA实施关键：构建服务组合
• 面向服务的体系结构SOA概述
• 面向服务的体系结构SOA简介
• SOA的进化(三)SOA的根源(1)
• SOA的进化(二)标准组织与贡献厂商(1)
• SOA的进化(一)SOA时间轴
• 七问七答 SOA
• SOA关键问题详解
• 解读SOA与传统企业IT管理间的“临界点”
• CIO：关于重置SOA新视点

· 网友精彩回答：

dim   db   as   dao.database  
  dim   otd   as   dao.tabledef  
  dim   i   as   long  
   
  set   db   =   workspaces(0).opendatabase(dbpath)  
  set   otd   =   db.tabledefs(tablename)  
   
  with   otd  
          for   i   =   0   to   .fields.count   -   1  
                  combo1.add   .fields(i).name  
          next  
  end   with  
   
          db.close