DataReport使用手记
来源:互联网 发布:问道手游sf源码 编辑:程序博客网 时间:2024/06/05 14:35
06年的一篇blog,转过来:
前几天,帮同事改一个VB的课业程序,具体任务就是在程序中添加报表功能,由于考虑到部署环境的问题,所以没有采用我以前惯用的Excel实现,而采用了同事提出的VB自带的DataReport实现,查到的资料大多数都是在DataReport数据源上连接DataEnvironment,MSDN也有这方面的一篇文章,可惜英文版和中文版一样的模糊,移到程序中也无法运行,后来根据实验中的错误提示在网上查到一个提问题的帖子,在他的帖子中倒是找到了正确的方法,原来直接把数据源链接为RecordSet就可以了,DataMember可以不用赋值,DataField赋值为字段名称,DataReport的空间索引必须以控件名称索引即可,下面是源代码。我在details Section按顺序建立了8个TextBox和Label接受字段值和字段名。
Set DataReport.DataSource = rs_data2
If rs_data2.RecordCount = 0 Then
Exit Sub
End If
Dim i As Integer
Dim j As String
rs_data2.MoveFirst
Do While Not rs_data2.EOF
For i = 0 To 7
With DataReport
j = i + 1
.Sections("Section1").Controls("Label" + j).Caption = rs_data2.Fields(i).Name + ":"
.Sections("Section1").Height = 60
If Len(rs_data2.Fields(0)) <> 0 Then
.Sections("Section1").Controls("Text" + j).DataField = rs_data2.Fields(i).Name
Else
.Sections("Section1").Controls("Text" + j).DataField = ""
End If
End With
Next i
rs_data2.MoveNext
Loop
DataReport.Show
- DataReport使用手记
- DataReport使用手记
- DataReport动态报表
- VB6中用DataReport做报表
- VB6中用DataReport做报表
- VB6中用DataReport做报表
- VB6中用DataReport做报表
- VB6中用DataReport做报表
- DataReport相对详细的介绍
- VB6 DataReport打印自定义纸张
- eVC使用手记
- PMD使用手记
- dotnetbar使用手记
- Subversion 使用手记
- Subversion使用手记
- Subversion使用手记
- PowerDesign使用手记
- PowerDesign使用手记
- 手势识别(五)触摸事件与手势识别重要知识点
- python中如何把数据存储到本地
- 输入一个非负整数,返回组成它的数字之和sum
- 基础总结篇之六:ContentProvider之读写联系人
- comparator接口与Comparable接口的区别
- DataReport使用手记
- Spring定时任务的几种实现
- HBase的协处理器问题,prePut函数无法触发。
- 手势识别(六)调节触摸到视图的传递
- UIView用户事件响应
- regular expression(2)
- 萌凤代码生成器&&解码器 ver.1.3
- group_concat函数详解
- PHP之转换编码格式