高分求教: VB 下标越界

发布网友发布时间：2024-10-03 02:17

共3个回答

热心网友时间：2024-10-03 02:33

For i = 1 To ii
StrSQL = "select * from " & tt & " where 编号=" & i & " "
rs.open StrSQL, conn, 3, 3
dh(i) = rs.Fields("监测点号")
rs.Close
Next i
改成 :
StrSQL = "select * from " & tt & " where 编号=" & i & " "
rs.open StrSQL, conn, 3, 3
While Not rs.EOF
dh(i) = rs.Fields("监测点号")
rs.Close
Wend

热心网友时间：2024-10-03 02:28

问题很多，没法回复！像这个ii之类的都是不明物

热心网友时间：2024-10-03 02:32

a(1 To m1, 1)你这表示从1开始？
从0试试

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