判断字段是否存在

Mike

dim fld as Field
 for each fld in rs.fields
    if fld.name="字段" then
      msgbox "字段存在!"
      exit for
    end if
 next