注册 登录
编程论坛 VB6论坛

循环弹出同一个窗体,加载表中不同数据怎么弄的?

wxflw 发布于 2012-03-11 19:01, 371 次点击

弹出多个相同窗体,我能多次弹出同一个窗体,但是不能加载数据,高手指点下!谢谢!
表中内容、地址数据相同,只有编号不同
If Adodc2.Recordset.RecordCount > 1 Then
r = Adodc2.Recordset.RecordCount
For i = 1 To r
Set rm = New Form2
Form2 .Text1.Text = Form3.Adodc2.Recordset.Fields("地址")
Form2.Text2.Text = Form3.Adodc2.Recordset.Fields("内容")
Form2.Label.Caption = Form3.Adodc2.Recordset.Fields("编号")
rm.Show
Next i
End If
问题在哪?给个实例参考下最好~谢谢了

补充,怎么避免弹出多个窗体加载同一条信息。

[ 本帖最后由 wxflw 于 2012-3-11 19:03 编辑 ]
3 回复
#2
wxflw2012-03-11 19:13
能加载数据了!把form2改成rm
但是都是加载的同一条信息,比如表有两条信息,怎么在第二的弹出窗体中加载第二条信息?

就是:如果有两条记录,弹出两个相同窗口分别显示这两条信息,N条记录就是弹出N个窗口分别显示信息

[ 本帖最后由 wxflw 于 2012-3-11 19:39 编辑 ]
#3
Artless2012-03-11 23:24
以下是引用wxflw在2012-3-11 19:01:09的发言:


弹出多个相同窗体,我能多次弹出同一个窗体,但是不能加载数据,高手指点下!谢谢!
表中内容、地址数据相同,只有编号不同
If Adodc2.Recordset.RecordCount > 1 Then
r = Adodc2.Recordset.RecordCount
For i = 1 To r
Set rm = New Form2
Form2 .Text1.Text = Form3.Adodc2.Recordset.Fields("地址")
Form2.Text2.Text = Form3.Adodc2.Recordset.Fields("内容")
Form2.Label.Caption = Form3.Adodc2.Recordset.Fields("编号")
rm.Show
Next i
End If
问题在哪?给个实例参考下最好~谢谢了

补充,怎么避免弹出多个窗体加载同一条信息。

movenext
#4
wxflw2012-03-13 11:00
movenext 前提是要查出已经弹出的窗口数据,然后才能根据数据下移,想着有点头疼!!
问题虽然没有解决,我已经用其他方法避免这个问题了!谢谢斑竹
1