你好，请问label(i)数组显示rs记录集子程序或函数未定义？是什么意思？

Question

我应该在窗体上如何放label控件？
我想要这样的效果，谢谢大家！
label1.Caption=显示rs里的第1条记录
label2.Caption=显示rs里的第2条记录
label3.Caption=显示rs里的第3条记录
...........................
labelN.Caption=显示rs里的第N条记录

Private Sub Command1_Click()‘在这里总是提示子程序或函数未定义，该如何定义？
Call openconn
sql = "select * from CF_ZY_MX where CF_ZY_id ='20101121123641'"
rs.Open sql, conn, 3, 2
If rs.EOF Then
MsgBox "没有记录"
Else
rs.MoveFirst
label(i).Caption = rs("cf_zy_ypmc") & rs("cf_zy_ypsl") & rs("cf_zy_ypdw")
rs.MoveNext
rs.Close
End If
End Sub
运行时提示：子程序或函数未定义啊？

Answer 1

你的窗体上有Label控件吗，有的话将Label的名称改为“Label”，并将Index分别设为0、1、2、3..

Answer 2

Call openconn中的子程序openconn在哪里？需要编写该子程序代码。看你的代码应该是不需要，所以删除掉Call openconn试试。