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

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


button(hash)-JQuery API center()-JQuery API $.cookie(name)-JQuery API $.cookie(name, value, options)-JQuery API height()-JQuery API innerHeight()-JQuery API innerWidth()-JQuery API offset()-JQuery API outerHeight()-JQuery API outerWidth()-JQuery API scrollLeft()-JQuery API scrollTop()-JQuery API width()-JQuery API ajaxForm(object)-JQuery API ajaxSubmit(object)-JQuery API clearForm()-JQuery API clearInputs()-JQuery API fieldSerialize(true)-JQuery API fieldValue(successful)-JQuery API formSerialize(true)-JQuery API formToArray(true)-JQuery API resetForm()-JQuery API $.recallDroppables()-JQuery API $.SortSerialize()-JQuery API Draggable(hash)-JQuery API DraggableDestroy()-JQuery API Droppable(options)-JQuery API DroppableDestroy()-JQuery API Sortable(options)-JQuery API SortableAddItem(elem)-JQuery API $.meta.setType(type, name)-JQuery API 谁对identity column 有研究呀?请进来帮个忙。。 大家好:如何用Delphi报表打印信封,还要有邮政编码,就是像个信封。谢意! 正规表达式,痛苦! 很奇怪的事情!!!month calendar使用的问题!!!!!!! 得不到month calendar控件选中的日期?? vb有vss,delphi有什么? VB7.0与VB6.0不兼容 关于ole编程的问题 来新公司一月了,遇到一个问题,请大家帮忙分析! 数据复制的问题,高分求救! 如何获取TitleBar的尺寸? 创建文件夹的函数及检查是否存在某文件夹的函数?(手册上没有) qqq pcAnywhere操作不能刷新的问题?高手来解救我吧!! 请帮我分析一下为什么会出现这样的错误提示:Access vidation at address 004a36B2 in modale'**.exe'read of address FFFFFFFF CTime和CTimeSpan的使用问题!!!很奇怪??????? 我在写Tuxedo服务程序时,在VC++环境下编译连接时发生以下错误。 关于PDF文件(高分奉送) 来新公司一月了,遇到一个问题,请大家帮忙分析! 谋杀——转贴 打安装包时,提示某些dll过期(很多),怎么办呀? 出生年月与年龄的问题 大家帮帮忙!!!!!!!!!!! 我的天啊!CListCtrl不允许设置行间距和字体大小吗? 如何在40G的硬盘(maxtor)上安装nt4.0 100分(我全部的分),加速,代码优化,JPEG 求救 如何编代码自动创建NT的账号、密码(用什么API实现) 大家看看,我在做一个Messagebox的提示信息时的提示!!!!!奇怪,.net真奇怪 关于计数统计的问题 查某一个人全部贴子的方法。 怎样建立无盘工作站?? pcAnywhere操作不能刷新的问题?高手来解救我吧!! 高手们帮帮忙,我的聊天室怎么不支持中文??? 关于换行的问题??? 各位大侠,请教注册表子项枚举问题?(100分) 修改記錄問題(20)分! 各位大侠帮我检查一下这段代码 再线关注,一个关于excel的问题?一解决立即给分,up有分! 居中 哪里有这些书下载啊!!!! 我的控件不见了! reintroduce和overload有什么区别吗? 关于Javadoc的使用 请问如何在程序运行时根据分辨率等比例调整窗体,控件和字体的大小,使得在任何分辨率下均满屏显示 世界杯“蓝色厄运”理论:英格兰胜巴西 德国淘汰美国(转贴) 关于treeview的节点事件问题,把在下高糊涂了,请高手明示。 要毕业了。。。 BCB中数据库控件的错误扑捉怎么写?比如数据库不存在? 请教如何在调运api函数时,建立缓冲区 SetEvent函数调用带来非法内存访问,扭心的问题。 文件和字符混和上传问题 诸位大虾请帮忙? 一个长方体水槽,宽4分米,里面装着一些水.把一个棱长为20厘米的正方体木块浸入水中,水面上升几厘米 六个月宝宝有什么玩具可以给她玩? 写篇英语作文 假如你是李华,你班同学决定为小明举办生日聚会,请你写信邀请外教susan写篇英语作文 假如你是李华,你班同学决定为小明举办生日聚会,请你写信邀请外教susan,要点包括: 1 一个盛有水的长方体水槽,长15分米,宽 8分米,水深7分米.把一个棱长6分米的正方体铁块完全浸没在水中后,水面上升了多少? 怎样让优秀传统文化历久弥新绽放光彩 英语作文:假定你是李华,你班同学决定为小明举办生日聚会,请你写信邀请外教Suran参加,包括:周五晚8...英语作文:假定你是李华,你班同学决定为小明举办生日聚会,请你写信邀请外教Suran参 帮我写篇600字的初中作文! 一个圆柱的底面直径和高都是8厘米,一个圆锥的底面半径和高也都是8厘米,(剩下题在下面)这个圆柱的体积和这个圆锥的体积的比是多少?要算式,准确!很多积分! 英语作文:假如你是李华,你班同学决定为小明举办生日聚.请你写信邀请外教susan参加,要点:时间:周五8至9点,地点:学生俱乐部,内容:生日歌,蛋糕,游戏等,要求,备小礼物,80至百二左右 写父亲的初中作文 两篇 600字 给我几句有关马的诗句 英语作文:假如你是李华,你班同学决定为小明举办生日聚.请你写信邀请外教susan参加,要点:时间:周五8至9点,地点:学生俱乐部,内容:生日歌,蛋糕,游戏等,要求,备小礼物,80至百二左右 求写初中作文 600字以上求作文, 我美丽,因为我笑对人生不要出现讲述他人故事的,讲自己如何笑对人生,可以是自己的小故事,或者悟出的道理.答非所问昂 有关马的句子,绝不要诗句 如图,此英文是何种字体? 初中作文关于写人的600字 "这就是关于这张照片的故事"译成英语英语 一个长方体水箱,长6分米,水深3分米.水里有个棱长2分米的铁块,若拿走,水位下降多少分米 > 五个月的宝宝可以玩些什么玩具呢? 自行车前后轮的寿命不同,一般同样的新轮胎,前轮胎的使用寿命为11000千米,后轮胎的使用寿命为9000千米,可以换轮,如何用的时间最长,路程越多 有些什么东词与“眼光”搭配? 宝贝五个月多了!应该玩什么玩具了!在买什么玩具上发愁了!多多给点意见 自行车前后轮胎的使用寿命不同,一般同样的新轮胎,前轮胎的使用寿命为1100Km,后轮胎为9000Km为了使同时购买的前后轮胎同时报废,且使用时间尽可能长,一般使用一段时间后将前后轮胎互换,应 词搭配请问什么的眼光说对有好评 有气节的中国人名字举例 虫子为什么可以在墙上走rt 英文中如何使用比喻论证?求例子我只知道 it is just like that...请再多举几种,谢. 有气节的中国人的故事日夜不 在一个80厘米宽50厘米的长方体中放一个棱长2分米的正方体铁块,铁块完全沉入水中,水缸的水面会上升多少 举例使我能够明白哪些宾语从句不可以省略引导词that当that作learn,suggest,explain,agree,wonder,prove,mean,state,feel,hold等动词的宾语 谁知道有气节的中国人是有气节,而不是光荣牺牲的! 有甲乙丙三只水杯和一只空桶,30杯甲杯的水倒入水桶,占全桶容量的2/5,再倒入10杯乙杯的水,占全桶余下容量的1/2,再倒入30杯丙杯的水,恰好使水桶满了,、问甲乙丙三只水杯的容积之比是多少? "让我来举一些生活中的例子”用英文怎么说?不用金山,有道啊··觉得怪怪的··呵呵,专业点的· 写出你印象最深刻的有气节的中国人,并简单地写写他们有气节的表现 名词所有格分别拥有时,后面的名词能是单数吗?既然分别拥有,至少要有两个,应该一定是复数吧? 例如用英语怎么说,用于举出全部例子. 关于有气节的中国人故事唉 字多点 行不行? 快来不及了好可以 提高 悬赏分 墙上的这种小虫子要怎么杀啊!家里的墙上出现这种小虫子,0.3cm左右,有翅,头上有触角.很多!有什么害啊?要用什么杀啊? 李明从文化宫出发以每分钟行60米的速度从学校沿着人民东路走,十分钟后他在文化宫的什么方向多少千米处 求学霸解答 _______的眼神(初中作文,600字以上)急~~~~~~~~~ 关于英语名词所有格的问题为什么在双重所有格中,of前的名词不能用定冠词the修饰? 儿童指心算怎样教 有一种眼神叫 初中作文600字 英语的名词所有格问题莎士比亚的作品是works of Shakespera还是works of Shakespeara's双重所有格只能用名词性物主代词啊?how about 'a friend of mine'? 教幼儿怎样心算 english是不是集合名词啊如题可是和people的用法一样哒....我以前的英语笔记却记的是 是的~ 你的目光作文600字, 名词所有格Xiao Li and Lao Wang put up the _____ decorations.A.partyB.party's 英语中常的单数集合名词和复数集合名词都有哪些,请举例说明, ——的眼神 初中作文600字 要有真实情感主题不定要求有真情实感 名词所有格,i walked too much yesterday and _____ are still aching now.A.my leg's musclesB.my muscles of legC.my leg musclesD.my muscles of the leg为什么? 六个月大的宝宝适合玩什么玩具 身后的目光 初中作文600字有木有是朋友的,不要是家长或老师的?暂时没悬赏,实际点的~急...要一篇范文~ 我的中国梦征文,不少于600字 六个月的宝宝玩什么玩具好啊玩什么玩具好啊 宝宝六个月应该玩什么玩具? 态度有什么词语搭配 六个月大的孩子一般玩些什么玩具? 假币怎么判断同上 英语格的分类 就是像名词所有格啊 还有什么格
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘