28,409
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
karma 2001-10-17
- 打赏
- 举报
<script language="vbscript">
sub showRS(rs)
msgbox rs.recordCount
dim s, f
s = ""
rs.movefirst
do while not rs.EOF
for each f in rs.fields
s = s & f.name & "=" & f.value & " "
next
s = s & chr(13) & chr(10)
rs.movenext
loop
msgbox s
end sub
</script>
sub showRS(rs)
msgbox rs.recordCount
dim s, f
s = ""
rs.movefirst
do while not rs.EOF
for each f in rs.fields
s = s & f.name & "=" & f.value & " "
next
s = s & chr(13) & chr(10)
rs.movenext
loop
msgbox s
end sub
</script>
hadeshuang 2001-10-16
- 打赏
- 举报
for each element in fields
.........
next
element代表fields对象里的每个数据
.........
next
element代表fields对象里的每个数据
bian8021 2001-10-16
- 打赏
- 举报
我用的是fields对象里的数据.如何用一个循环把里面的数据全写出来
karma 2001-10-16
- 打赏
- 举报
<script language="vbscript">
dim x
x= Array(12,23)
for each y in x
msgbox y
next
</script>
dim x
x= Array(12,23)
for each y in x
msgbox y
next
</script>
