Private Sub Command1_Click()
rptCustomerOrders.Show
End Sub
运行这个项目,单击命令按钮(CommandButton),你应该看到带有用户和订单信息的报表。
为了直接把数据报表(DataReport)绑定到由数据环境生成的分层记录集,并添加如下代码:
Private Sub Form_Load()
Dim intCtrl As Integer
With rptCustomerOrders
Set.DataSource=Nothing
.DataMember=""
Set.DataSource=deCustomerOrders.rsCustomers
With.Sections("Section2").Controls
For intCtrl=1 To.Count
If TypeOf.Item(intCtrl) Is RptTextBox Or_
TypeOf.Item(intCtrl) Is RptFunction Then
.Item(intCtrl).DataMember=""
End If
Next intCtrl
End With