加条件?
Dim filter As String = "设计师 = '" & e.DataRow("设计师") & "' and 部门 = '" & e.dataRow("部门") & "'"
没看懂你问题,上传实例说明。