四时宝库

在Access开发中，子窗体的应用是一大特色，能非常方便地显示数据，筛选数据

有问到如何通过按钮筛选子窗体的值来进行查询（行），筛选列显示不同的字段

1、设置子窗体的数据源

通过动态设置子窗体的记录源，动态筛选数据。通过选择不同的订单号，筛选该订单号下的数据

Private Sub Command3_Click()
 Dim strSql As String
 strSql = "Select * from 订单明细表 where 订单号=" & Me.Text1 & ""
 Me.订单明细窗体.Form.RecordSource = strSql
 Me.订单明细窗体.Form.Requery
End Sub

解析：子窗体名为“订单明细窗体”，筛选的文本框为“Text1”。通过RecordSource来动态设置记录源

2.动态替换子窗体

Private Sub Command4_Click()
 Me.订单明细窗体.SourceObject = "查询.订单明细查询"
End Sub

解析：为子窗体设置一个新的对象，一个名为"订单明细查询"的查询，这里也可以是一个表，或者是窗体。

源码下载：http://www.office-cn.net/access-interface/364.html