代码如下
Dim str As String
If Not IsNull(Me.组合2) Then
str = "select * from 表1 where 表1.dh = '" & Me.组合2 & "'"
End If
If Not IsNull(Me.文本4) Then
str = "select * from 表1 where 表1.fy = '" & Me.文本4 & "'"
End If
Me.表1_子窗体.Form.RecordSource = str
Me.表1_子窗体.Requery