Private Sub Combo1_AfterUpdate()
Me.Child1.Form.Filter = "水果 like '" & IIf(IsNull(Me.Combo1), "*", Me.Combo1) & "' and 产地 like '" & IIf(IsNull(Me.Combo3), "*", Me.Combo3) & "'"
Me.Child1.Form.FilterOn = True
End Sub
Private Sub Combo3_AfterUpdate()
Me.Child1.Form.Filter = "水果 like '" & IIf(IsNull(Me.Combo1), "*", Me.Combo1) & "' and 产地 like '" & IIf(IsNull(Me.Combo3), "*", Me.Combo3) & "'"
Me.Child1.Form.FilterOn = True
End Sub