active report 的显示

wzrain 2003-02-19 04:33:05

Dim ConnMdb As New ADODB.Connection
Dim RsMdb As New ADODB.Recordset
ConnMdb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\data\dm.mdb;PassWord="

RsMdb.Open "SELECT * FROM fr, ConnMdb, adOpenDynamic, adLockOptimistic
Me.Field3.DataValue = RsMdb.Fields("单位名称").Value
上面的程序在active report2里怎么只显示一条数据？

...全文

91 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

wu_yongcai 2003-03-21

打赏
举报

把赋值语句放在Detail Section里面，它可以自动循环产生多条记录

wu_yongcai 2003-03-21

打赏
举报

gengyu 2003-03-05

打赏
举报

楼上说的很详细阿

jingxiaoping 2003-03-04

打赏
举报

*******************************
ActiveReport详细使用方法如下：
*******************************
一、根据自己的需要加入控件

在ActiveReport左下角有三个图标，分别是ADO Data Control、DAO Data Control、RDO Data Control控件，你可以根据自己使用数据链接的不同采用不同的连接方式，现在仅以第一种方式ADO Data Control作为例子进行详细讲述。
二、在报表中加入控件，并建立数据链接
1、加入控件：
新建一个ActiveReport报表，双击左下角的ADO Data Control图标，这个时候就会看到在报表的Detail栏中出现一个一模一样的图标，将其放在不显眼的位置[不影响其他控件的放置即可]
2、建立数据链接

第一步：指定给控件数据源，假定数据链接已经建立

例：
Set rs3 = New Recordset'建立数据表源
rs3.CursorLocation = adUseClient'指定打开方式为用户独享
rs3.Open "select * from back_produce where 单据编号=" & Val(Text1), conn, adOpenKeyset, adLockPessimistic'连接数据表
If rs3.RecordCount = 0 Then
Exit Sub
End If
With ActiveReport1
Set .DataControl1.Recordset = rs3'设置报表的数据源
.Show 1
End With

第二步：放置所需控件
第三步：在Private Sub ActiveReport_DataInitialize()加入代码
If ActiveReport4.DataControl1.Recordset.EOF Then Exit Sub
With ActiveReport4
.Field2.DataSource = "DataControl1"
.Field2.DataField = "商品编号"
.Field3.DataSource = "DataControl1"
.Field3.DataField = "商品全名"
.Field4.DataSource = "DataControl1"
.Field4.DataField = "单位"
.Field5.DataSource = "DataControl1"
.Field5.DataField = "数量"
.Field6.DataSource = "DataControl1"
.Field6.DataField = "单价"
.Field7.DataSource = "DataControl1"
.Field7.DataField = "金额"
End With
三、完成
**************************************************
你试试吧，如果有问题的话，请E-MAIL给：jxp@sina.com
我会奉送给你一套源程序，里面有这方面的详细操作例子
**************************************************