With msgdK
Do While Not objK.adoRs.EOF
intCount = intCount + 1
msgdK.TextMatrix(intCount, 3) = objK.adoRs!KNum
objK.adoRs.MoveNext
Loop
End With

程序运行时提示下面代码下标越界
msgdK.TextMatrix(intCount, 3) = objK.adoRs!KNum
帮我分析一下这是什么问题,谢谢,
知道的请速答复,谢谢

谢谢,我知道了
intCount = intCount + 1
msgdK.TextMatrix(intCount, 3) = objK.adoRs!KNum
这两代码换一下就可以了,先使用变量再加1,就不越界了
我这也是在维护别人程序,不是自己设计的,维护起来有点难度