vb 小问题,不知道如何搞,结果集问题,谢谢

来源:百度知道 编辑:UC知道 时间:2024/06/08 15:51:39
function getrs(rs as recordset,csr)
传入结果集后,循环这个结果集,找rs(csr)和csr相同的,然后把
结果集rs中(d)的值改变,返回新的结果集,怎么不行呢,update那就直接end if 都不走了??分不多了,没办法啊,谢谢
Do While Not rs.EOF

If rs("CSR") = vCSR Then
rs("d") = rsSumMax(0).Value
rs.Update
End If
set getrs=rs
end function

rs.MoveNext
Loop
删除end function 不会把,程序执行吗?
我粘贴时,帖错了,不是那问题
不会吧,都没有看我写的东西吗?那个我粘贴错了

- -! 那把对的粘贴出来啊?代码不粘贴出来怎么改?

应该是那里的问题~!都END FUNCTION了,就立即结束循环并且跳出过程。后面的什么“rs.MoveNext | Loop”都不会执行啦!