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

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


ExifInterface使用,Android 2.0新增类 GraphableButton类实现Android UI开发 Android控件开发之ToggleButton原理 Android标题栏TitleBar全攻略 AsyncTask实例代码演示Android异步任务 重绘TextView类演示Android的Handler Android的SoundPool类使用与利弊 AsyncTask解决Android UI堵塞问题 Android自定义View实例AnalogClock源码 Android UI开发专题(五) Bitmap和Canvas实例 Android UI开发专题(四) View自绘控件 Android UI开发专题(三) 各种Drawable 提高Android开发效率-Eclipse快捷键大全 Android UI开发专题(二) 之绘图基础 Android UI开发专题(一) 之界面设计 Only the original thread that created a view hierarchy can touch its views的相关 Android上的Back键事件捕获 Android蓝牙API之BluetoothSocket类(2) Android蓝牙API之BluetoothSocket类 Android蓝牙API之BluetoothAdapter类(1) Android蓝牙API之BluetoothAdapter类(2) AndroidManifest.xml文件剖析 (三) AndroidManifest.xml文件剖析 (二) AndroidManifest.xml文件剖析 (一) MOTODEV初体验,高效Android开发工具 Simple让BASIC语言编写Android程序 MOTODev试用报告- Android开发效率之源 安装MOTODEV Studio for Android版方法 Android开发工具-motoDEV studio介绍 Android过后Chrome OS又是如何开发? Android安全模型导致开发时功能受限 现在的女孩很弱智!!! VC当中有没有反汇编?能解释一下么? 大家来评评是否假东西? 关于菜单 請問 如何在IE中实现设置用户的分辨率!在线等待,急急急!!! 谁能提供XP和《Peopleware》的书下载。 怎么用C编算24的程序? 如果我想给date grid控件加一些功能,比如加一个复选框,可以判断哪项被选中,该怎么加? 分区问题 sos 请问如何在自己的软件中加入注册功能? 请教一个问题 请问怎样使动态创建的控件响应一个事件 windows编程高手请进 我真惊了,小弟刚用VB6,请问,VB6怎么会有乱吗问题?怎么解决!各位大侠请帮忙!! 如何使一段程序停止运行,并自动释放相应的堆栈? 请问西安哪儿能买到《The C++ programming Language》? 谁能告诉我#include <fstream>和#include <fstream.h>的区别? 条件?返回值1:返回值2???? 在CEDIT的CHANGE事件中怎么不可以用CEDIT::REPLACESEL()?? 打印高手请进 谢了 简单的键盘消息! 如何在表里添加列? dll调用的问题 请知道NotesSMEI的高手帮忙 奇怪错误 如何用ATL创建一个全局COM(只启动一个实例)供所有客户端使用? 如何修改一个域的值?用@SETfield吗? 怪! 怪! 怪! 为何存储不上数据???(急) 我真惊了,小弟刚用VB6,请问,VB6怎么会有乱吗问题?怎么解决!各位大侠请帮忙!! 急救!!用pb写登陆界面出现的大问题! 欢迎大家来! 急!如何在一个form窗体里面来移动线条,就象类似于画基本的电路图那样,谢谢高手的指教!!! 哪儿有<<新编计算机绘图>>下载啊? 给高分 急!如何在一个form窗体里面来移动线条,就象类似于画基本的电路图那样,谢谢高手的指教!!! 可以用网页文件重新启动机器吗? 高手请看看!!!如何用ATL创建一个全局COM(只启动一个实例)供所有客户端使用? 哪里能下载到vs.net正式版?(100分) pascal 谁知道有没有创建Service的好工具? 谁来介绍一下CORBA ? 请教ODBC SQL中 CONVERT的用法? 笔记本电脑开不了机!!!! 关于ClientDataSet SQL动态参数的问题? 关于在PB的script中直接嵌入SQL 单机使用什么数据库最好! 怎么远程启动一个程序? 一个XSLT的小问题 C++Builder高手回答!!(关于在NOVELL上的应用) 急!请问哪位高手知道怎么用VB来开发组态软件。请多提提建议! 1.反应CO+H2O可逆号CO2+H2在1000K达到平衡时.分别改变下列条件K值发生变化的是A.将压强减小至原来的一半 B.将反应温度升高至1200KC添加催化剂 D.增大水蒸气的浓度2.对于一定不能自发进行的反应 混凝土泵车和混泥土搅拌车空车时整部车的重量有多少吨.泵车47米 有关化学反应热的.在相同温度和压强下,将等质量的硫分别放在足量的纯氧气中和空气中燃烧,设前者出的热量为Q1,后者放出的热量为Q2,他们相对大小如何》》? 为什么卡车 公交车等大型车辆前的挡风玻璃几乎都是垂直安装的 混凝土泵车是和混凝土搅拌车一起用的吗 是不是搅拌车搅拌完成后现场把料送给泵车?谢谢了! 任何化学反应一定有热效应么 细菌和真菌生存离不开什么? 问有关高中化学喷泉试验物质的量浓度问题求用下列气体做喷泉试验后所得溶液的物质的量的浓度:1.充满氯化氢气体的烧瓶2.充满氨气的烧瓶3.用排空气法收集的氨气对氢气的相对密度为104. 画电路图时电流从正极出发,先经过用电器还是开关最好能画图说明 下列哪一项不是细菌、真菌生活所必需的条件D A.水分 B.适宜的温度 C.有机物 D.氧气 高中化学有关喷泉实验题同温同压下,在甲乙两个等体积的干燥圆底烧瓶中分别充满NH3、NO2进行喷泉实验,实验结束后,甲烧瓶中溶质的物质的量浓度_____(>或 减少汽车尾气污染环境的办法最好是能在已有交通工具上改进,比如燃料,利用率之类的. 表征好氧菌属于真菌还是细菌 酵母菌在无氧情况下分解葡萄糖除了酒精和二氧化碳有能量吗 汽车尾气量污染环境大?还是火山喷发污染环境大? 人身 静电怎么办 酵母菌在无氧条件下分解葡萄糖后的产物是 汽车尾气污染环境 为什么冬天人的身体静电比较多? 在酵母菌培养过程中,由有氧环境转变为无氧环境,下列过程显著加快的是:A、葡萄糖的利用 B、二氧化碳的释放 英语翻译 车辆尾气 化学方程式中的加热符号△表示多少温度下? 胆矾晶体是无水硫酸铜还是5H2O硫酸铜 发酵中的酵母菌由有氧变为无氧时葡萄糖分解量是升高还是降低 判断正误.(1)PH=7的溶液呈中性.( )(2)PH=5溶液用在不同温度可能为中性.( )(3)纯水升温,水离子积变大,PH减小,呈中性.( )(4)25℃水电离常数为1.0*10^-14(十的负十四次方)mol^2/ 相同质量的钠,镁,铝分别跟足量的稀硫酸反应,在同温同压下产生气体的体积比为——————.如果这三种金属各取等物质的量,也分别跟足量的稀硫酸反应,在同温同压下产生气体的体积比为 在密闭容器中进行反应x(g)+y(g)[可逆反应符号]2z(g),已知x、y、z的起始浓度分别为0.1(mol乘以L的负一次幂)、0.3(mol乘以L的负一次幂)、0.2(mol乘以L的负一次幂),在一定条件下当反应达到平 1.判断AB正确性:::A.Nacl晶体不导电因为Nacl晶体不存在离子.( ) B.下图冰醋酸加水稀释过程导电能力能力,“O”点冰醋酸未电离,其内部不存在离子.( )附问:冰醋酸常温什么态?冰 1.已知A(g) +B(g)=C(g) △H1; D(g) + B(g) =E(g) △H2 .若1 mol A和D的混合气体完全与B反应,反应热为△H3,则A和D物质的量之比为 (△H3 – △H2 ):( △H1 – △H3 )2.10°C时,在一个体积为2L的密闭容器中,充入17 反应N2(g)+3H2(g)===2NH3(g) ,达到平衡.在温度不变时,欲时[N2]/[NH3]的比值增大.可采取:A保持容器体积不变,增加N2的物质的量B保持容器体积不变,增加NH3的物质的量C使容器体积扩大到原来的2倍D保持 体积相同,pH相同的Hcl溶液和CH3CooH溶液,与NAOH溶液中和时两者消耗的NaOH的物质的量( )A相同B中和的Hcl多C中和的CH3COOH多D无法比较 已知下列两个热化学方程式2H2(g)+O2(g)===2H2O(l) △H=+571.6kJCзH8(g)+5O2(g)===3CO2(g)+4H2O(l) △H=+2220kJ实验测得H与CзH8的混合气体共5mol完全燃烧时放热3847kJ,则混合气体中H与CзH8的体积比是多少 对于可逆反应4NH3+5O2=4NO+6H2O(其中为可逆)化学反应速率关系是:2V正(NH3)=3V逆(H2O),为什么错了,比例系数不是正好吗?怎么比错了? 最近日本科学家确认世界上还存在另一种"分子足球"N60 ,它与C60 的结构相似,N60在高温和撞击后释放巨大能量,下列对N60说法中不正确的是 A.N60和14N都是氮的同位素 B,N60和N2都是氮的同素异形体C 细菌和真菌的生存需要什么条件?全方面 某石油液化气的成分中丙烷和丁烷的质量分数分别为80%和20%,已知完全燃烧1g的丙烷和丁烷放出热量均为50kJ.现用0.8kg容积为4L的铝锅,把一壶20摄氏度的水烧开,消耗液化气0.056kg,求燃料利用率.已 家里抹布在擦拭家具的时候会掉毛絮状,但为什么只掉在玻璃上,而不掉在木桌上?原来的擦手毛巾,用旧了,就拿来当抹布使用.可是近日发现,用这个抹布来擦拭玻璃窗或镜子等玻璃表面的时候, 碳和水反应生成一氧化碳和氢气是氧化反应还是还原反应?还是其他什么反应请说明原因 气体A由C H F S 中的三种元素组成,将标准状况下1.12L的气体A在过量的氧气中完全燃烧,恢复到原来状态放出Q千焦的热量.已知气态生成物全被过量的Ca(OH)2溶液吸收,可得到6.95g沉淀.再取相同条件 某同学想用实验证明高锰酸钾溶液的紫颜色是高锰酸根离子的颜色,而不是钾离子的颜色,它涉及的下列实验步骤中没有意义的是( )A.将高锰酸钾晶体加热分解,所得的固体质量减少B.观察氯 真菌和细菌一般不需要的生存条件是什么 化学反应与能量 典型例题要一道就够,选择题或答题皆可 身上老是有静电,都不敢触摸金属物品了!我的身上老是有静电,一天都可能被电十多次,痛苦加害怕啊,现在甚至连金属的东西都不敢碰了,我怕金属的东西电我,看见金属的特别是特别亮的金属我 我们的生活与细菌和真菌的关系 第三题的计算怎么算 木炭、氢气、一氧化碳分别跟灼热的氧化铜反应,下列叙述正确的是()A反应后都有水生成 B反应后都有二氧化碳生成C反应后都有红色固体生成D反应类型均相同 细菌真菌生存条件是什么 物理3个开关2个用电器的电路图 氢气、木炭、一氧化碳分别跟灼热的氧化铜,下列叙述正确德尔是1.反应后都有二氧化碳生成2.反应的基本类型都是置换反应3.反应后都有红色固体产生为什么 细菌真菌需要的生存条件填空题,给你三个空,问细菌真菌的生存也需要一定的条件,如___、 ___、 ___.怎么填? 物理电路图中开关算用电器吗? 木炭、一氧化碳、氢气都能与氧化铜反应吗?如题 细菌和真菌的生存需一定的条件;如需要(),适宜的(),还要有(). 两个开关控制一个用电器是什么电路两个开关同时关时,用电器断电,一个开一个关时,用电器通电,一个先打开了,另一个先打开再关闭也可以使用电器断电 求助高中化学 求解释!下列叙述正确的是1.含韩最高价元素的化合物一定具有强氧化性2.阳离子只具有氧化性,阴离子只具有还原性3.失电子越多还原性越强4.强氧化剂与还原剂之间不一定能发 细菌和真菌的生活需要什么条件?ps:简略些。 电路图中电流先经过用电器再经过开关会怎样? 下列反应不属于取代反应的是()A.C2H4 + Cl2 →B.2 C2H5OH → C2H5-O-C2H5 + H2OC.C2H5Cl + H2O → C2H5OH + HCl非常抱歉,A选项漏打了.A.C2H4 + Cl2 → C2H4Cl2 有关高中化学的反应速率好比水中加入1NA块 常理都是2块比一块产生气泡块 为什么老师总是说反应速率不变? 有关化学反应热效应已知热化学方程式:SO2(g)+ O2(g) = SO3(g) △H = ―98.32kJ/mol在容器中充入2molSO2和1molO2充分反应,最终放出的热量为 ( ).A.196.64kJ B.196.64kJ/mol C.< 196.64kJ D.> 196.64kJ对不起,刚才题
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘