| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 371 人关注过本帖
标题:循环弹出同一个窗体,加载表中不同数据怎么弄的?
只看楼主 加入收藏
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
结帖率:87.21%
收藏
已结贴  问题点数:20 回复次数:3 
循环弹出同一个窗体,加载表中不同数据怎么弄的?

弹出多个相同窗体,我能多次弹出同一个窗体,但是不能加载数据,高手指点下!谢谢!
表中内容、地址数据相同,只有编号不同
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 编辑 ]
搜索更多相关主题的帖子: 数据 最好 
2012-03-11 19:01
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
收藏
得分:0 
能加载数据了!把form2改成rm
但是都是加载的同一条信息,比如表有两条信息,怎么在第二的弹出窗体中加载第二条信息?

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

[ 本帖最后由 wxflw 于 2012-3-11 19:39 编辑 ]

学习--------------学习-------------------学习--------------------!!
2012-03-11 19:13
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:20 
以下是引用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

无知
2012-03-11 23:24
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
收藏
得分:0 
movenext 前提是要查出已经弹出的窗口数据,然后才能根据数据下移,想着有点头疼!!
问题虽然没有解决,我已经用其他方法避免这个问题了!谢谢斑竹

学习--------------学习-------------------学习--------------------!!
2012-03-13 11:00
快速回复:循环弹出同一个窗体,加载表中不同数据怎么弄的?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022946 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved