关于ADO

Question

dim fie as field
   for each fie in tabname.fields
      'do yourself
   next fie

Answer 1

我不想用这个,不知SQL语句能否实现

Answer 2

我找到了
  For intloop = 0 To rstEmployees.Fields.Count - 1
      Debug.Print "   " & rstEmployees.Fields(intloop).Name
   Next intloop

Answer 3

你认为这两种方式有什么两样吗?
dim fie as field
   for each fie in tabname.fields
      debug.print fie.name
   next fie
'____________________________________   For intloop = 0 To rstEmployees.Fields.Count - 1
      Debug.Print "   " & rstEmployees.Fields(intloop).Name
   Next intloop

Answer 4

呵呵，那么你可以这样：
dim fie as field
   for each fie in rstEmployees.fields
      debug.print fie.name
   next fie
'____________________________________   For intloop = 0 To rstEmployees.Fields.Count - 1
      Debug.Print "   " & rstEmployees.Fields(intloop).Name
   Next intloop

Answer 5

这两段不是一样吗,我只所以不用
dim fie as field
   for each fie in tabname.fields
      debug.print fie.name
   next fie
是因为还要定义tabname
好了,我可以结了,分都给你吧