VBA IF语句问题

发布网友发布时间：2022-05-16 23:06

共3个回答

热心网友时间：2023-09-14 13:06

i=0
while Not rs.EOF Then
i=i+1
Sheet1.Cells(i + 1, 2) = rs.Fields("DEA005").Value
Sheet1.Cells(i + 1, 3) = rs.Fields("DEA001").Value
Sheet1.Cells(i + 1, 4) = rs.Fields("DEA002").Value
Sheet1.Cells(i + 1, 5) = rs.Fields("DEA057").Value
Sheet1.Cells(i + 1, 6) = rs.Fields("DEA003").Value
rs.movenext
wend
替换你中间的程序

热心网友时间：2023-09-14 13:06

把你的这句rs.MoveNext改为
If Not rs.EOF Then
rs.MoveNext
else
Exit For
end if

热心网友时间：2023-09-14 13:07

加一句防错语句

on error resume next

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com