最简单的办法是在统计代码中删除筛选“造林类别”和“林种”。但不完整了。 With e.Form.Controls("ComboBox4") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "造林类别 = \'" & .Value & "\'" End If End With With e.Form.Controls("ComboBox5") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter & "林种 = \'" & .Value & "\'" End If End With