向高手请教显示多条记录的问题,请大家帮忙!!!
我在FORM上放了很多的Label来显示数据,但是当数据有多条时我希望在
FORM上已经显示的第一条记录下方接着显示记录,请问高手教我怎么做。
例如:我查询出的记录有三条,我要在FORM上显示第一条和第二条,第三
条另外打开这一个FORM写,但是这个FORM上的Label是不变的,也就是说
只有这几个,不知道这样说清楚了没有。
form 页上的Label格式:
lblYYH lblYYLX
lblMLDJ lblJJLB
lblJBDJ lblJFRL
lblYDXZ lblLTBZ
lblLLBZ lblJFBL
lblCTBB lblPTBB
lblJLFS
我填写数据的代码如下:
Public Sub 填写页面(nZHH As Long)
Dim rs As New dbRecordset
rs.Open "SELECT * FROM KHDA_YDD111 WHERE ZHH=" & nZHH
Do While Not rs.EOF
If Not rs.EOF Then
lblYYH = rs("YYH")
lblYYLX = rs("JFLX")
lblMLDJ = rs("FLSM")
lblJJLB = rs("FLSM")
lblJBDJ = rs("JBDJ")
lblJFRL = rs("JFRL")
lblYDXZ = rs("YDXZ")
lblLTBZ = rs("LTBZ")
lblLLBZ = rs("LLBZ")
lblJFBL = rs("BL")
lblCTBB = rs("CTBB")
lblPTBB = rs("PTBB")
lblJLFS = rs("JLFS")
End If
rs.MoveNext
Loop
rs.Close
end sub