for next 嵌套循环的问题。。。

2008-02-24 01:51:01 183 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

EXCEL VBA for多重循环举例及如何退出某个嵌套循环在VBA当中，同样和编程语言一样，有着for循环语句。其语法为如下：For<计数器=开始数>To<结束数>[step步长][指令][ExitFor][指令]Next[计数器]从开始到结束，反复执行For和Next之间的指令块，除非遇到ExitFor语句，将提前跳出循环。其中，步长和ExitFor语句以及Next后的计数器均为可选... 阅读详情

我有两个个表，一个名为“duty” ，一个名为“sale”
duty的内容如下
mduty vdate
A,B,C 2008-1-1
A 2008-1-3
B,C 2008-1-4

sale的内容如下
handle vdate vtime
880 2008-1-1 10:25:51
830 2008-1-1 10:52:23
468 2008-1-3 10:09:52
621 2008-1-3 10:11:33

然后我写了一段代码搜索，代码如下
<%
sub search()
set reco= Server.CreateObject("ADODB.Recordset")
reco.open "select * from duty",conn,1,1
For i=1 To reco.recordcount
id=reco("id")
mduty=reco("mduty")
vdate=reco("vdate")
A1=""
C1=""
D1=""
rmAhandle1=0
rmBhandle1=0
mduty= Split(mduty,Chr(44))

For j= LBound(mduty) To UBound(mduty)
Response.Write(mduty(j) & " ")

if mduty(j)="A" then
mdutyAperson=(len(reco("mduty"))+1)/2
set rmA1= Server.CreateObject("ADODB.Recordset")
rmA1.open "select * from sale where vdate=#"&vdate&"# and vtime between #9:30# and #12:30#",conn,1,1
for rmAi1=1 to rmA1.recordcount
if not rmA1.eof then
rmAhandle1=rmAhandle1+rmA1("handle")
end if
rmA1.movenext
next
end if

if mduty(j)="B" then
mdutyBperson=(len(reco("mduty"))+1)/2
set rmB1= Server.CreateObject("ADODB.Recordset")
rmB1.open "select * from sale where vdate=#"&vdate&"# and vtime between #9:30# and #12:30#",conn,1,1
for rmBi1=1 to rmB1.recordcount
if not rmB1.eof then
rmBhandle1=rmBhandle1+rmB1("handle")
end if
rmB1.movenext
next
end if

next
Response.Write (vdate & " ")
Response.Write (rmAhandle1 & " "&mdutyAperson & " ")
Response.Write (rmBhandle1 & " "&mdutyBperson & " ")
Response.Write " "
reco.movenext
next
end sub
%>

搜索结果如下
A
B
C
2008-1-1
1710 3
1710 3

A
2008-1-3
1107 1
0 3

B
C
2008-1-4
0 1
0 2

问题：在代码中我只定义了当2008-1-1是搜索对了，但是2008-1-3的时候duty中的mduty没有B，但是怎么也出现了0 3？而且数字还和2008-1-1 的是一样的，2008-1-4也出现了这样的问题。
请大家帮忙看看是怎么回事呃！！！
谢谢啦！！！！

...全文