子窗体连接

零落成泥　发表于：2011-06-22 10:59:31 　

在一个窗体里面有两个对等的子窗体，两个子窗体的数据源的表的关系是一对多的关系，也就是一个是主表，一个是子表。问题是当它们同为一个窗体的子窗体时,应该怎么样把它们关联起来,如:当选取第一个子窗体(主表)里面的某一个记录(假设是一条采购单记录)时,在第二子窗体(子表)中就表显示它的明细记录(这就那张单的明细记录).几年前见有人做个这样的列子,就是要在每二子窗体的属性里的数据项里的"连接子字段"和"连接主字段"把两个有关联的字段连起来,但我忘记了它的语法该么写了.请哪位老师不吝赐教,谢谢!!

Top

丘山发表于：2011-06-22 12:10:14

建议将子表的数据源设置为条件查询，条件即位为主表子窗体

Top

曹光耀发表于：2011-06-22 13:09:05

在子窗体的当前事件中加入代码：

Private Sub Form_Current()
Dim str As String
If Nz(Me.级别) <> "" Then
str = Me.级别
Forms![窗体1]![子窗体2].Form.RecordSource = "select * from 表2 where 级别='" & str & "'"
Else
Forms![窗体1]![子窗体2].Form.RecordSource = "select * from 表2"
End If
End Sub

请查看示例