主题：多条件下筛选，按多个列和时间，如例子，不知道代码怎么写？ 请专家指教！

多条件下筛选，按多个列和时间，不知道代码怎么写？ 

接手人接下任务， 先判断15天内是不是已经接过发任务人的任务。 

我写出来好像不对，不知道是什么原因？

If e.Col.name = "单击_接下任务" Then

    Dim r As Row = Tables("任务总部").Current

    r.DataRow.Load() '重新加载此行的数据

    Dim drs As List(Of DataRow)   '查找接手人在一段时间内是否接过我的任务'

    Dim dt1 As Date = Date.Today.AddDays(-15) '获取第一天

    Dim dt2 As Date = Date.Today.AddDays(1) '获取最后一天

    Dim daa As String = r("发任务人")

    drs = DataTables("任务流水表").Select("[接任务人] = '" & User.Name  & " ' And [发任务人] = '" & daa & " '  And [接下时间] >=  '" & dt1 & " ' And [接下时间] <=  '" & dt2 & " ' " )   '查找同一任务 15天内是否接过任务

    If drs IsNot Nothing Then '如果找到的话

        MessageBox.Show("亲15天内接过此人的任务!")

        

    Else

        Dim ww As DataRow = DataTables("任务流水表").AddNew() '增加一行

        Dim xx As Row = Tables("任务总部").Current

        ww("发任务人") = xx("发任务人")

        ww("接任务人") = User.Name

        ww("任务内容") = xx("任务内容")

        

        MessageBox.Show("已接下任务!")

        

        

    End If

End If

此主题相关图片如下：qq图片20140821201327.jpg