1、这一段代码在老朱一楼加的是备注符号(单引号),所以我给删除了:
If filter > "" Then filter = "(" & filter & ")"End If
2、最后一个判断不必要使用,因为filter为空,自动加载全部,