Filter = "[分公司名称] = '" & dr("分公司名称") & "' And [部门] = '" & dr("部门") & "' And [职务] = '" & dr("职务") & "' And [姓名] = '" & dr("姓名")