Tables("测评").Filter = "任务组编号 = '" & e.DataRow("任务组编号") & "'" & " and ([删除] = False Or [删除] Is Null )"