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

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


用VB实现托盘动画图标 用Visual Basic 定制BMP文件 用Visual Basic的Move方法实现动画效果 用Visual Basic与MS-Draw开发通用作图软件 在VB中获取可执行文件及Windows 95快捷方式的图标 在VB中进行各种图形切换的方法 在VB中制作可滚动的图像显示 在图片上平滑移动文字 -VB资料 VB怎样使程序的标题条闪烁? VB制作图像的Mask图 CWinInetConnection-一个封装了WinInet API函数的类 -VB资料 MODEM通讯意外处理-VB资料 MsComm 文字传输-VB资料 PING一个IP地址(向它发送一个数据包并等待回应) -VB资料 SMTP协议简介 (Simple Mail Transfer Protocol) -VB资料 VB5.0 中远程数据库的访问 VB下如何编写CRC校验程序 Visual Basic 6中发送邮件的新方法 Visual Basic通信程序设计 Whois 示例程序-VB资料 Winsock Terminal示例程序 -VB资料 WinSock断开导致客户端问题-VB资料 把Outlook信箱中的附件另存为 -VB资料 保证连网计算机时间同步-VB资料 编写网络寻呼机 -VB资料 编制自已的电话录音小程序-VB资料 程序中如何启动默认的拨号连接-VB资料 打开浏览器并进入指定网址-VB资料 得到用户的IP地址 -VB资料 电话拨号 -VB资料 电子邮件的标准格式 (RFC 822)-VB资料 一个昨天没搞明白的问题! redhat 7.2中如何设置代理服务器 求教高手一个Java中一直困扰我的问题,急!急!急! 谁能够给我个例子实现 Dll向应用程序单向通信 Dll->EXE?50分? 请问.......... 在数据窗口拖动垂直滚动条死机。只能ctrl+alt+del结束任务。倾听你的声音。 请教各位大虾两个Sql语句 哪里有visual studio.net下载? 那里有sql server 2000企业版下载的 xml的学习??????双儿 怎么比较两个LPTSTR字符串啊??? 语句“rs.Open sql,conn,1,1”中后边的两个数字参数是何意思? 如何获取datawindow中文本框内容? 请教公司大院网络系统设计方案要怎写?会遇到什么问题? 关于clientdataset的返回值问题 关于报表打印的问题!火急。。 这个世界上有多少C/C++程序员? 关于ARP广播域的问题????????????????、 请问什么服务器支持global.jsa 安装oracle数据库出错!!!!!!!!!!!! 如何在对话框的OnPaint()函数中得到该对话框的窗口大小? 一个看似简单却很棘手的问题,不得不请教各位。。。 哪里有将rm文件转换成avi或者mpg格式的软件? 关于ARP广播域的问题?????????????? 请问,,怎么设定mshflexgrid的属性,使其各列的宽度与数据源字段的宽度一致 请问这几个对象是否代表同一个对象? 菜鸟问题:如何跟随鼠标拉出一虚线矩形框?回复就有分! 高分寻Authorware v6.0 注册码 在数据窗口中有“部门”和“员工”两个列,分别采用各自的下拉数据窗口显示。如何使得“部门”改变时,“员工”显示与其对应的人员而不是“员工”表中所有人员。 怎样安装UNIX? 灌水加求救…… T-SQL中SELECT句中可不可以有存储过程。。。。。。。。这样为什么不行呢?(100分酬谢) MS SQL SERVER 有谁知道型号为CDU111-NE 的SONY光驱是多少速的吗? 谁对RTTTL格式文件了解,怎么把它转换成可以发送的二进制格式? 关于ORACLE存贮过程的迷惑,请各位大侠解惑! 请问如何向ActiveX控件发送一个自定义数据结构的指针 有没有好一点的ASP上传组件?? asp调用dll失败!!! 为何用了2个以上的单元有调用窗体就出现 access violat at address XXXXX in module的错误 请问有没有一些用来专门用作软件测试的测试软件? EPSONSTYLUS C20SX 型号的打印机支持NT4吗? 请问哪里有linux操作系统的源代码下载?谢谢 哪几种服务器支持global.jsa 关于数据绑定控件的问题。 关于TIFF文件的处理 DLL动态调用的问题,应注意些什么? 有关错误提示问题的文件存放在哪里呀 vf怎样求2个日期类型的差值?象sqlserver的datediff一样。 一个程控交换问题。 请教各位高手,如何在程序中模拟鼠标点击行为,大大加分!!!!!!!!!!!!!!!! 地震是地壳岩石在什么情况下所引起的震动现象 【高一地理】读地壳物质循环示意图,依据组成地壳的矿物和三类岩石1.读地壳物质循环示意图.依据组成地壳的矿物和三类岩石的互相转化,判断属于方框②的岩石有(大理岩 )2.据图判断下 汽车、电动车一般都要使用铅蓄电池.某铅蓄电池用的酸溶液是溶质质量分数为28%的稀硫酸.若用1840克溶质质量分数为98%的浓硫酸,配的稀硫酸溶液的质量为多少克?配制该稀硫酸时,需要水多 地震是由于地壳岩石的地球内力作用下,发生什么或什么而引起的震动现象 汽车,电动车一般要使用铅酸蓄电池.某铅酸蓄电池用的酸溶液溶质质量分数为30%的稀硫酸,先用1L溶质质量汽车、电机车一般要使用铅酸蓄电池.某铅酸蓄电池用的酸溶液是溶质质量分数为30%的 hot的中文意思 noodle,candy,ice cream是可数名词还是不可数名词? 地震是地壳岩石在地球内力的作用下引起的震动相象,它由( )`( )和( )构成 Hot的中文含义 为什么bread是不可数名词,而bun,noodle是可数名词 dog 的同类词 hot stuff的中文意思是什么? noodle是不是可数名词,为什么常用复数?承让了! hot的同类词什么? hot 中文意思 电动车铅酸电瓶可以加水吗 地壳由哪些元素组成 求第一题,dog的同类词3个 12v的电动车的电瓶(铅酸电池).1:一支光管(家里用的照明灯)是20W(电流参数无法提供)的.接在一个12v.14AH 的电动车电瓶(铅酸电瓶).请问:电瓶可以照明多长时间?我是用来照明的.最少能用5小时吗?2 地壳中所含各种元素的质量百分比居前的三位前三位``从高到低可是第三个空它给你了,是铁啊 汽车、电动车一般使用铅酸蓄电池.某铅酸蓄电池使用的酸溶液是质量分数为20%的稀硫酸.请回答下列有关问题:(1)若用100g质量分数为98%的浓硫酸(密度为1.84g/cm3)配制该稀硫酸时,需要 is的i发音的音标是i还是e? 地壳中含量最多的元素是? hot dog 如何分别音标/i/和/i:/在做题时如何分别的作用不是问意思啊 地壳中含量最多的元素是啥? 按照古英语与口语来说 hot dog应该有三种以上的意思 .wannaknow101 求 there _(are\is) +some+不可数名词 地壳中含量最多的元素是什么 hot There are many women teathers in our school There are some tomato noodles为什么前者两个都变复数,而后者只变一个 Mc Hot Dog _毒 歌词?有时间更好 汽车、电机车一般要使用铅酸蓄电池.某铅酸蓄电池用的酸溶液是溶质质量分数为28%的稀硫酸,现用1 L溶质质量分数为98%的浓硫酸(密度为1.84 g/cm3)配制该稀硫酸.问:(1)1 L溶质质量分数 配置400g20%的硫酸溶液,需溶质质量分数为98%,密度为1.84g/cm3的浓硫酸多少毫升?需水多少毫升?如何配置?越快越好. 沿途HOT DOG怎么样 电动车一般都要用铅蓄电池.某铅蓄电池用的酸溶液是溶质质量分数为28%的稀硫酸.若用1000毫升溶质质量分数为98%的浓硫酸(密度为1.84克每ml³)来配置溶质质量分数为28%的稀硫酸.(1)1 noodles是不是可数名词如题 noodles到底是可数的吗?有的说是有的说不是,到底是不是可数的? 地壳有哪些岩石组成? hot的对应词 面条noodle是不是可数名词 组成地壳的岩石问题1.关于岩石的成因正确的是( )A、花岗岩是由火山喷发而形成B、石英岩按成因属于岩浆岩C、页岩受挤压变质成为坚硬的板岩D、玄武岩受热变成大理岩2.沉积岩的特征 hot反义词或对应词 用noodle或noodles填空,并请告诉我为什么不是另一个?what do you have for breakfast?I often have bread or ( ). 可以说地壳是由岩石组成的吗那怎么理解海洋部分的呢? 英语“these"的对应词是什么,hot 的对应词是什么 水容重的单位是什么谢谢水的容重是若干吗单位是什么吗感谢 地壳位于莫霍界面之上,由岩石组成判断题,要解析岩石,吧是岩石圈! 带hot的词 水的容重是多少?单位是什么? I want some chicken and a hot 词语搭配!Hot!无锡惠山 趵突泉山东济南 蝴蝶泉云南大理 华清池山西临潼 跑虎泉浙江杭州 二 泉开始是连线,现在 noodle 可数吗 补充句子1,No.I'm not( )( )hungry 2,Here( )a hot dog ( )you.( )you 玻璃每立方米的容重是多少吨,钢化玻璃和普通玻璃的容重一样吗? noodle(面条)是不是不可数名词?如上述的. 英语句子改写 I want a hot dog改为一般疑问句怎么改.就a hot dog提问怎么提?、 12毫米玻璃容重是多少?(急) 地震是地壳岩石在 作用下,发生 而引起的震动现象.地震发生时还会释放地球内部蓄积的巨大 .特别是最后一个空 May I have a hot dog?怎么回答 玻璃幕墙的容重是多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn