28,406
社区成员
发帖
与我相关
我的任务
分享请各位看一下这段代码有何错误！！
While j < 4
SHZ =Mid(ryxm, j, 1)
Sql="select * from DTYZ where HZ='" & SHZ & " ' "
rs2.open sql,adocon,3,2
if not rs2.eof then
SBY=rs2.Fields("BYCode")
else
SBY=""
end if
BY= BY + SBY
rs2.close
j=j+1
Wend
为何BY得到的值是最后的SBY而不是加起来的值！
如第一次：SBY为WANG,第二次：SBY为JI,哪么BY应该为：WANGJI,为何只得到JI.
SHZ =Mid(ryxm, j, 1)
Sql="select * from DTYZ where HZ='" & SHZ & " ' "
rs2.open sql,adocon,3,2
if not rs2.eof then
SBY=rs2.Fields("BYCode")
else
SBY=""
end if
BY= BY + SBY
rs2.close
j=j+1
Wend
为何BY得到的值是最后的SBY而不是加起来的值！
如第一次：SBY为WANG,第二次：SBY为JI,哪么BY应该为：WANGJI,为何只得到JI.
...全文
请发表友善的回复…
发表回复
cdsun 2003-12-09
- 打赏
- 举报
第一次的by的值在哪里？
hsrcm7612 2003-12-09
- 打赏
- 举报
也不对，，我觉得第一次得到得WANG赋值给BY，循环到第二次时BY的值就为空了！
linzhifeng 2003-12-08
- 打赏
- 举报
差一句
rs2.movenext
rs2.movenext
summercat 2003-12-08
- 打赏
- 举报
do while not rs2.eof
if trim(rs2.Fields("BYCode"))<>"" then
SBY=rs2.Fields("BYCode")
else
SBY=""
end if
rs2.movenext
loop
jacklinchen 2003-12-08
- 打赏
- 举报
BY= BY & SBY 试试
另：对rs2的定义：set rs2=server.createobject.... 要放在循环中来， 否则若有多条记录的话，可能会出错
另：对rs2的定义：set rs2=server.createobject.... 要放在循环中来， 否则若有多条记录的话，可能会出错
wsqsoft 2003-12-08
- 打赏
- 举报
你在函数前定义变量BY
