高考问答胼胝体缺如的人:vb的一段简单代码~~~大家看看~！！
来源：百度文库 编辑：高考问答 时间：2024/04/28 18:42:36
Dim fld as DAO.Field
.
.
rs.MoveFirst
While Not rs.EOF
For Each fld In rs.Field
Debug.Print fld.Value&";";
Next
.
.
.
中间的那段能给我翻译一下么？具体点好么？
.
.
rs.MoveFirst
While Not rs.EOF
For Each fld In rs.Field
Debug.Print fld.Value&";";
Next
.
.
.
中间的那段能给我翻译一下么？具体点好么？
rs.MoveFirst '记录集的游标移到最前
While Not rs.EOF '当记录集没到最后运行
For Each fld In rs.Field '遍历表内个字段
Debug.Print fld.Value&";"; '在“立即”中输出字段名称
Next'集合内的下一个
总的意思就是列出表内各字段名
rs.MoveFirst -----移动到第一个记录
While Not rs.EOF ----当还没有到最后一个记录时循环执行下面的语句
For Each fld In rs.Field ----当取到一条记录时循环遍历这个记录的每个字段
Debug.Print fld.Value&";"; ----输入各个字段
Next ----取下一个字段
rs.movenext ---取下一个记录
Wend ----循环结束
在VB里可以这样做吗？？
在VBSCRIPT里是不能这样来遍历记录的字段的！
rs.MoveFirst '移到第一条记录
While Not rs.EOF '如果不是记录尾,进入下面的循环
For Each fld In rs.Field '枚举rs.Field集合中的每一个元素,fld为当前元素
Debug.Print fld.Value&";"; '输出当前元素的值
Next '继续找集合中的下一下元素
...
for each 是for...to的一种变体,当不知道要循环多少次时使用很方便。