主题：分组框做了两个查询问题

红色的名称写错了，去看一下控件的名称属性。

Dim Filter As String
With e.Form.Controls("产品编号")
    If .Value IsNot Nothing Then
        Filter = "产品编号= '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("销售出库明细").Filter = Filter
End If