说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何动态更新数据报表

HTML文档下载 WORD文档下载 PDF文档下载
VB如何动态更新数据报表

本文向你介绍如何一个在设计时没有绑定任何数据的数据报表。用这种方法创建的报表能让你不必事先知道数据源中字段的名称。

一般来讲,使用数据报表时,TextBox必须绑定到一个ADO记录集。在某些情况下,你需要在运行时创建一个数据报表,而在设计时你并不知道数据源中字段的名称。
为完成此功能,你必须在工程中添加一个数据报表,该报表中的控件数须同你想获取的字段数一致.然后打开ADO记录集,循环更新数据报表。下面的代码实现了此功能。

首先开始一项新的EXE工程,Form1被自动添加。

在工程菜单中选取引用,然后选择Microsoft ActiveX Data Objects.

从工程菜单中选择“添加数据报表”。如果你你没有看到此选项,你必须在该菜单
中选择“部件...”,然后切换到设计器,从中选取对数据报表的引用。 

将数据报表的名称属性改为DR。 

添加两个Report Label和两个Report TextBox到报表中的“细节”区。 

在窗体Form1中添加一个名为Command1的命令按钮。 

将下述代码放在Form1中: 

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim cmd As New ADODB.Command


Private Sub Command1_Click()

Dim q As Integer

Dim intCtrl As Integer

Dim x As Integer

Dim z As Integer

x = 0

q = 0

z = 0


With DR

.Hide

Set .DataSource = rs

.DataMember = ""

With .Sections("Section1").Controls

For intCtrl = 1 To .Count

If TypeOf .Item(intCtrl) Is RptLabel Then

.Item(intCtrl).Caption = rs.Fields(q).Name & " :"

q = q + 1

End If

If TypeOf .Item(intCtrl) Is RptTextBox Then

.Item(intCtrl).DataMember = ""

.Item(intCtrl).DataField = rs(z).Name

z = z + 1

End If

Next intCtrl

End With

.Refresh

.Show

End With

End Sub


Private Sub Form_Load()


Command1.Caption = "Show Report"


cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;"


With cmd

.ActiveConnection = cn

.CommandType = adCmdText

.CommandText = "Select FirstName, Lastname from Employees"

.Execute

End With


With rs

.ActiveConnection = cn

.CursorLocation = adUseClient

.Open cmd

End With


End Sub

本例中用到Northwind数据库,上面的路径可能与你计算机中Northwind的路径不同,改变相关的语句然后运行程序。


为什么开发者热衷在Stack Overflow上查阅API文档? Facebook推新News Feed 欲造就“个性化报纸” 女神程序员的一天:暴力测试social爬虫代码 2013IBM云存储路线图:更快,更简单,更安全 二战大数据故事:数学家、物理学家、概率论击败德国潜艇 软件定义网络服务商Pertino B轮融资2000万 Scringo社交组件,让你的应用“热闹”起来! Android开发必备:Eclipse 4.2 SR2版本发布 32场!2013年360HTML5校园行首站告捷 移动周报:不做内容,只钻技术的快播 一周消息树:中国开源发展缓慢的“病因” 百度应用引擎BAE正式开放 新增支持Node.js CloudVelocity,下一个VMware? Buffer创始人谈开发:先验证,后编程! 谷歌可穿戴式产品再度来袭:会说话的鞋子 未来Chrome OS或取得Android般成功 云落地@北京,北京市北斗公共平台或开放API? GitHub再遭攻击 主要服务中断约一小时 移动开发者将有望拥有.app域名使用权 微信将推“游戏中心”?移动互联网入口圈地加剧 美国航空公司首次开放API 并举办“黑客马拉松”编程大赛 谷歌数据中心设计的10条“黄金法则” GitHub时代:为什么我们都在开源 VMware发布Horizon Suite 三款应用打包折扣低 TOP30+应用排行榜:二月份国内外综合榜单 开源是否意味着不需要负任何责任? 微软年度科技展 酷炫技术知多少 图解Hadoop生态系统 HTML5并不给力 微软IE10又默认启用Flash Oracle出新提案:Java正逼近iOS? TIOBE 2013年3月编程语言排行榜:厚积薄发 Ruby反超Perl OLE保存时能不能单击实现??? 小问题,进者有分 一个关于sendmessage的问题。 救命啊,FTP的客户端程序 linux下如何安装jre? 怎么使验证失效? 如何实现字符串扫描? 我从来没用过C#,也不会,不过这个关于其运行的问题我确想先知道! 一个老问题! 今天我给一个男人骚扰了一回 有个问题,朋友们请进.sos 一个非常简单的问题 TListItem的Data属性(void)如何使用呀,如何读出它的值呢? bmp to ico 今天看到一个怪现象~! 软件过来人为小弟指点~~ bmp to ico 如何打开控制面板 高分求教,我爱上了兄弟的女朋友,我该怎么办?(100分) 求助:在首次适应算法和最佳适应算法中,分区分配和分区回收的c语言实现。 同在一个城市,呼吸着同样的空气,都为这老板的几块大洋打拼,蓦然回首才知道已经几年了,也该为自已的未来思考一下了。。。 请问有关两个宏 bmp to ico 硬盘无法访问的问题,急!!!估计是被黑了 ISA2000中的问题,特急,在线求助 处理窗口关闭时的动作? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 请问不通过Image控件如何用直接用DC来显示一个BMP?? 请问现在数据库开发技术有哪些?大致情况? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 请问汇编用什么编译器最好啊? 有什么可以下的电影啊,提供网址,谢谢 下午闷啊:( 怎样让字体自动适应分辨率 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) RowCount属性怎么用 VCL派生类的属性发布问题,请高手指教 中国能否成为世界第一? 有关cisco路由器上copy子集的疑问 怎样将msn的email用outlook express收到本地! 请告知msn的 pop smtp服务器 如何动态画出函数的图象? 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 有创意的T恤~~ Transaction not connected! 高分求教,我爱上了兄弟的女朋友,我该怎么办? (100分) 高手求救 aspnetnemu注册吗 陨落雕老弟昨日开始中考,祝福他,放分! installshield打包时可以加入密码吗? 救命! 什么是关工委提到的八项制度? 英语,心理劳动,品德,体育,美术的卷纸. 尽吾志,无悔矣的现实例子 八项规定指的是哪八项 帮忙找《游褒禅山记中“尽吾志 与 深思慎取 两观点的联系 “尽吾志而不悔”的事例 槐米什么意思 深思慎取什么意思? 没有志而失败的事例 槐花飘香的意思 请问“深思慎取”是什么意思?请用浅显易懂的语言概括, spss 正负相关分析我想知道要实现分析两个变量间的关系式正相关还是负相关,用spss怎么操作? 情人节送4支枚槐花代表什么意思 请问《游褒禅山记》中“此学者不可以不深思而慎取之也”中“可以”的意思? 为什么减二后期又是2n了?为什么减一后期也是2n? 【导数】曲线y=2x-x^3在点(-1,-1)处切线的倾角 车水马龙什么意思 减一后期的基因重组老师说是非同源染色体,非等位基因间的重组,也就是孟德尔的自由组合定律可具体是什么过程还不清楚请各位指教,(最好能有图)谢谢 神秘的海啸 科科 第四段文字运用了哪些说明方法 车水马龙有什么意思? 写马路上车水马龙的好段 神秘的海啸19.本文说明的主要内容是什么?21.第四段文字主要运用了哪些说明方法 23.据报道,在这次印度洋海啸灾难中,泰国一个渔村的长者,在海水迅速退去时,想起“海水退得快,再来就更 车水马龙的意思是什么? 车水马龙的意思? 槐花像什么东西? 车水马龙是什么意思 人为什么要进化 车水马龙的意思是?😱 “言出如丝,言出如纶”的意思是什么, 这城市那么空,这回忆那么凶,这街道车水马龙,我能与谁相拥 生物中如何分清有丝减一和减二不用背就能记住的 《题秋江独钓图》中的“一丈丝纶一寸钩”什么意思 A、B两车同时从甲、乙两站相对开出,两车在距甲站50KM处第一次相遇.相遇后两车继续前进,各自到达乙、甲两站后立即返回,在距乙站30KM处第二次相遇.甲、乙两站相距多少千米? 车水马龙什么意思 一蓑一笠一扁舟,一丈丝纶一寸钩中的”丝纶是什么意思? 改为同义句 The Fine Art Museum is both beautiful and i改为同义句The Fine Art Museum is both beautiful and interesting.The Fine Art Museum is _____ _____ beautiful _______interesting. 关于槐花的花时槐花有哪些种类?各种类几月开花? 一蓑一笠一扁舟,一丈丝纶一寸钓.一曲高歌一樽酒,一人独钓一江秋的意思只用告诉我这句话的意思就可以了! 一个人张大嘴巴吃言猜一成语 “尽吾志也而不能至者,可以无悔矣”下面两句是什么? TS纳纶钛丝是什么TS纳纶钛丝可以做什么用啊,主要用于什么行业是TS纳纶钛丝是一种高科技产品好像可以做防毒服我也不清楚所以请教众位 The Fine Arts muesum is ---- ---- ----- ----- [ 既漂亮又有趣] 补充单词. 车水马龙,求相近的成语 怎么区分有丝分裂后期,和减二后期的图, 我知道有丝分裂后期有同源染色体,减二没有,但看图还是分不清 想知道北京新东方的新概念英语课程有什么内容,具体是什么? 什么成语,跟车有关的,不是车水马龙. 怎样看图区分是减数分裂还是有丝分裂呢?就是那种类似有丝分裂后期和减数第二次分裂的图,我感觉明明是一样的嘛,可是练习册里老让区分,真是晕死了!可是怎样看是否有同源染色体和同源 新东方的高中英语课程是面授好还是网络课程好?暑假时间不长,要面授的话需要十天,学校的作业要完成就比较困难了,所以我个人觉得能保证集中精力听课的话网络课程是不是好一些?因为时 尽吾志矣,尚不能至者,可以无悔矣,其孰能饥之乎? 有丝分裂和减二怎么区分 哪里有林语堂的经典散文? 中央8项规定是什么 “尽吾志可以无悔”与“没吾志而悔”的典型事例如题, 车水马龙是什么意思?车水马龙是什么意思,请大家帮解释解释. 以岗位责任制为主的八项制度是什么? 地震波属于机械波,还是电磁波? 尽吾志也而不能至者 可以 举什么例子 老干部政治待遇八项制度是什么 全部 全部 车水马龙的意思及用法 孟加拉国列车脱轨致两人死亡诺基亚亏损大幅收窄 手机总销量同比下俄罗斯达吉斯坦共和国首府发生爆炸致1吉林前郭震区移动通讯中断 受灾情况正印度长途巴士车祸后爆炸 45名乘客被叙反对派称副总理遭解职或为叙政府“化“世界最大民用建筑”首席设计师去世公司注册制度改革全球镜鉴——聚焦激发涉案金额240亿 “万家购物”网络传QE3“瘦身”延期 新兴市场仍需未雨背景资料:欧盟20年大事记公安部要求公安机关对暴力伤医行为坚决吉林松原10分钟内连发两次地震 东北世界勤俭日 请从身边小事做起浦发银行设立伦敦代表处巴西“张开双臂”欢迎中国企业投资卫计委:将逐步探索新农合跨省就医结报吉林松原前郭尔罗斯蒙古族自治县发生5华媒聚焦三中全会:中国新改革“分好蛋商务部回应“批评报道针对外资”:媒体中国建设银行落户卢森堡该出手买房了吗?不是你的梦,再美也要醒!不是你的情,周知视频 丨“P2P”吸金黑洞周知问答丨某文化交易所的3月赚5倍投红烧鸡中翅定福庄群雄论战:文化+科技构造双子星周知内幕丨高息理财产品的“时间”游戏360小水滴后台直播TFBOYS观众20亿年后地球消失!宇宙最终命运曝光欧盘评◆张尧浠◆4月13日黄金白银原椰子饼周知问答丨吉林那家私募基金被立案,千蜂蜜怎么吃最好?洪清华天空法则:老鹰、乌鸦、麻雀可以周知趋势丨央妈出手,余额宝收益要跌破不想上班?看看别人家的办公室有一首情歌传遍了五湖四海!周知问答 丨商场办卡送额度,还分批返男主角离世后,《速度与激情7》是如何周知趋势丨 高大上的城投公司开始还不南京唯美爱情隧道:因为爱情而存在
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘