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

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的路径不同,改变相关的语句然后运行程序。


AWS推快照备份服务抵御宕机风险 靠谱吗? 微软品鉴会秀Windows 8电脑 上百款新设备年末上市 甩开外包,雄踞榜首:揭开“宫爆老奶奶”成功的秘密 IBM收购大数据公司StoredIQ 推动大数据传输能力 令人意外:前Windows部门总裁将去哈佛教书 舒迅:产品经理必读的九步法 独家爆料:Facebook移动客户端开发揭秘 一个独立开发者的自白:我如何在一年赚得60万美元 Dropbox收购Snapjoy 意欲打造媒体中心 2012世界“末日”:有经过正确的分析吗?! 23.5亿美元!谷歌出售摩托罗拉机顶盒业务 两家巨头相继放弃移动广告,移动广告形势堪忧? 应用洗牌,还能免费多久?Google推出iPad版Quickoffice 2012末日APP推荐 求生自救必备! Windows8上网利器 不卡死的IE10浏览器 为何Java程序员学习Clojure有优势? 我们是如何阅读代码的? “热水冷却”技术将主导美国国防部数据中心改造 程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 求获取FTP服务器上文件的创建日期的代码 系统已经从一个严重错误中恢复。 怎样使一个页面访问过后立即过期? and 和 or 有什么不同??? 关于oracle 配置的问题 Oracle数据库实例和数据文件的问题求助 调查:各位用Lotus开发的时候,对源码如何做版本控制的?效果如何? 请问各位高手现在业界对工作流与电子工单有没有统一的标准? 动态生成STATIC 文本框,把里面的文字都加上下划线,怎么做? 有什么好的类似于QQ的局域网通讯程序???可支持WIN98及WINXP间的通讯!!! 我快晕了,急救! 低手勿入,高手请进,剧难??? 一个程序调试中产生的问题 -------数据接收和发送模式的问题!(非资深程序员勿入)100分只给答的最好的 求救!关于坐标系转换问题 现在很多邮件服务器要身份验证,ASP.NET(C#)的SMTPMAIL类有设置身份验证和密码的属性吗? 怎么在基于对话框的程序中加入一幅bmp作为底图? 刚学java,碰到一问题,请 有空进来看看 showMessageDialog的使用问题 disable mainmenu控件的某个subitem怎样实现 哈哈,需要短信网关IP地址及其源代码的快来顶一下。 sybase12.0安装时的问题??? 怎么样能用asp编写使得IE打开pdf文件?在查询后怎样还能在查询的输入框里面保留查询的输入? 如何使用TreeView进行分级管理 触发器的效率问题! 寻求解决方案 组件刷新问题,UP有分 请问 虚拟目录 和 WEB站点 有什么区别? DBEXPRESS的问题!很简单 请问那里有支持中文好的jsp开发的webmail下载?很急!谢谢大家了! 我如何在程序中切换输入法 怎么把一个COleDateTime类型的变量转成time_t类型(long型)变量? 结构成员这样定义 WCHAR bString[0]; 长度为0有意义吗? 关于DLL中的函数 如何动态分配指针数组? 哪里有关于delphi多线程资料下载? 急!!!SQL2000数据库IMAGE图象数据的存取?????? 这个存储过程怎么写? D7中的这个怎不见了啊-----急急 为什么只能传递两个汉字?有解决的办法吗? 关于DLL文件中的函数 lotus菜鸟请求急就!!!!!!!! 如何动态分配指针数组? 怎样实现点击按钮,将光标所在行的某列参数传到另一个form,显示出另一个表的某条相关记录? 这句话到底有什么含义??? T-SQL连接字符串的操作符号是? 问一个送分问题。 如何得到驱动器信息? (腊肉)欢迎讨论:简体、繁体同界面显示问题 請問在水晶報表里怎樣實現這樣的設計 谁有校友录? 棉花糖怎么融化? 动植物体内是否既有RNA还有DNA 急问吡啶和顺丁烯二酸酐能反应吗?请问顺丁烯二酸酐和吡啶能反应吗? 棉花糖舔一下为什么会融化? 嘴里的棉花糖也融化了 是哪个歌里的天也.了...口中的棉花糖也融化了 .妇昵毫概 在三氯化铝存在下,吡啶与乙酸酐作用生成的产物主要是什么? 我做的棉花糖为什么容易融化我是新手,刚好不容易做出来一团棉花糖,但1分钟不到,就开始一点点掉了.而且还变颜色?请问这是为什么啊.为什么我看到别人卖的那些样品放好久都不化呢?最好 药厂检验员主要是做什么工作?主要是做医药的 实物证据最能够证明的认定是()A存在性B完整性C所有权D计估 为什么笛子可以吹出不同的音调?求原理, 药厂QC检验员主要操作的仪器有哪些呢 某同学用加热氯酸钾和二氧化锰的方式来制取氧气,加热前他称得混合物的质量为15g,完全反应后,称得剩余...某同学用加热氯酸钾和二氧化锰的方式来制取氧气,加热前他称得混合物的质量为15g 怎样证明桌子在振动,设计个实验 格兰仕光波炉其它各方面都正常,就不能加热!谁有解决方法? 实验室加热氯酸钾和二氧化锰的混合物共15g制取氧气,待反应完后,冷却称得固体物质10.2g,计算:(1)制得氧气多少克?(2)原混合物中含氯酸钾多少克?(结果精确到0.01) 请说出5种活泼亚甲基化合物,但是必须是除酮、酯类以外的活泼亚甲基化合物,如果答案令我非常满意的话,一定额外加分. 新买的格兰仕光波炉不加热怎么办? 为什么氮气中两个氮原子成键是成3个共用电子对? 求一种含有下面基团的化合物,最好为表面活性剂类.苯甲酸,(脂肪)醚键,甲基,亚甲基. 某浓度的稀硫酸与足量的锌粒反应,在一定条件下,为了减缓反应进行的速率,又要保证生成氢气的量不变要加什么?话说书上答案给的是醋酸钠,是因为醋酸钠水解产生醋酸,使氢离子减少.但水解 共用电子对的形成共用电子对是因为一个原子容易失去电子,另一个容易得到电子(出自百度百科),那么为什么不会形成两个离子而形成了共用电子对呢?两个相同的元素也会形成共用电子对, f调笛子各个笛孔所对的音调我不想要那些指法的图,因为我当初学习笛子的时候,教我的人直接告诉我每个笛孔所对的音调是什么,但太久了,我忘记了,我现在就想知道各个笛孔所对应的的音调 化妆品微生物基础知识 在建筑图中有一个房间 叫静压室,它是做什么用的房间? 科学家对狼的评价文学作品所描写的动物往往会被作家赋予人的品格,如称狼“聪明”或“狡猾”“勇敢”或“凶残”,用词的褒贬区别都是由作者的立场和情感态度所决定的.你觉得科学家会 化妆品微生物欧盟标准求助,化妆品中微生物检测,欧盟与美国的标准? 将15g氯酸钾,二氧化锰混合物加热至无氧气放出 固体质量为10.2g 原混合物中氯酸钾质量分数是多少 古今中外一共有多少位科学家认识到肠道的重要性再说出分别是哪几位 如何控制化妆品微生物超标 怎么在EXECL表格中就算几个数据的总和?l例如.就算中间10个数的总和SB请绕开 体液免疫能特异性识别并清除体内的癌变细胞为什么不对? 如何净化浑浊的自来水,自来水浑浊(水锈)无沉淀.净化后营养会流失么. 怎么在EXECL表格中就算几个数据的总和?l例如.就算中间10个数的总和 求一段数据的总和 如图所示电路,下列.判断中错误的是 17题 如图为一种椭球体磁铁,该磁铁磁性最强的部位在哪里呢? 测量结果的表示方法 棉花糖做多了怎么办?可以融化重新做吗? 右图为一种椭球体磁铁,该磁铁磁性最强的部位在哪里 线桥法,如果碰到有共用电子对的物质该怎么办? 在某共价化合物中,M元素显-2价,这是由于A.一个M原子得到两个电子 B.一个M原子失去两个电子 C.两个共用电子对偏离M原子 D.偏向 植物培养基里有些什么? 微生物源有毒物质及其毒性效应是什么? 磁体上磁性最强的部分叫做(),它的位置在磁体的(). 植物培养液哪儿买上海孙桥求助 是不是所有的有毒物质都是微生物构成的? 什么叫低压阀门 有倒管的培养基杀菌需注意什么问题 微生物如何除去水中有毒物质 请问甲基环戊二烯三羰基锰光解产物都有哪些?最终生成哪些稳定化合物? 做抑菌圈实验的时候,如果用大肠杆菌为细菌的话,需要在培养基中培养多久再涂布到固体培养基上? 有毒物质( )叫做食物链的()作用,产生原因有毒物质1()2() 五甲基环戊二烯是禁运品吗? 0、如图所示电路出现下列一处故障后,请将会出现的电路现象填写在表格中:(灯填“不亮”、“变亮”或“变暗”,表填“无示数”、“示数变大”或“示数变小”) 一种离子能在细胞膜中运输取决于 我想问一下五甲基环戊二烯锂在空气中是否稳定? 高等动植物细胞内都含有的物质是 A血红蛋白 B淀粉、RNA C酶、DNA D纤维素、激素 自来水浑浊里面含有什么物质啊,喝了有什么危害? 由O、Al两种元素组成的化合物溶于过量的气氧化钾溶液中的离子方程式为 激素可以是RNA吗 什么叫做一对共用电子对 美国600万年轻人赋闲 纽约芝加哥均美国一军事基地附近发生枪击案 造成两埃及政府拟于11月中旬终止紧急状态秘鲁前印加遗址惊现两具保存完好千年木英《卫报》指美国安局监听35位外国领安倍批小泉纯一郎零核电政策非长远之策伊朗公开“神风”攻击无人机 用胶带组澳民众痴迷电脑游戏 50岁以上玩家超纽约长岛一垃圾袋内惊现死婴 婴儿或遭美油轮尼日利亚海域遭海盗袭击 2名船澳洲林火因部队实弹演习引发 强风致火雄性鱼深夜发奇怪求偶声 扰乱英国居民港媒:监控丑闻令美众叛亲离 “去美国欧盟针对美监控拟推新法规 科技企业或军演引发澳大利亚山火肆虐 一名灭火飞美国国安局被指30天收集1240亿份奥巴马敦促国会通过移民改革法 称有利联合国继续准备销毁叙化武 瑞典提供运老汉与网友开房遇儿媳系假新闻 媒体致奥巴马敦促国会通过移民改革法 称有利法国登记失业人数再次上升卫星戏份渐重这堂课,将改变孩子高考的命运!全国第一家衙门博物馆在咱内乡大同新生儿疾病筛查率较低卫生部门呼吁第一书记,中石太铁路设施设备改造工程全面铺开韩国暖炕申遗,别急着冷嘲热讽传统企业“触电”没有想象中那么难浮尘天来袭太原昨日灰蒙蒙(图)开车出行最好“宁绕远别堵死”(图)市人大代表本报聊民生人大代表将做客本报聊民生新型城镇化规划,我省近期将亮相幼儿园喂药疑云:为何都选“病毒灵”?忻州破获特大诈骗案,涉案金额400077岁的老爷子学习“嘀嘀”打车嗬!一潘姓始祖 周朝王裔马方承认对敏感信息有所隐瞒没人照顾的10岁小女孩在派出所多了一2014“千名老人下江南”活动正式启教育部:中小学生跨省转学可走“网上高
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘