主题：求助：列重复输入问题

我的表中有日期（日期型）、项目名称（字符型）两列，我要在这两列中输入日期和内容，要求是，如果日期和前面行中的日期不重复，输入的内容就可以和上面输入的内容重复。如果输入的日期和上面输入的日期重复，输入的内容也不能和上面的内容重复！

我下了下面的代码，但不对，思考了半天也不会写，只好请教群里了，请群友帮忙给改下！谢谢！

If e.DataCol.Name = "日期" Then
    Dim rq As DataRow
    rq = e.DataTable.Find("日期 = #'" & e.NewValue & "'#" )
    If rq IsNot Nothing Then
        If e.DataCol.Name = "项目名称" Then
            Dim dr As DataRow
            dr = e.DataTable.Find("项目名称 = '" & e.NewValue & "'" )
            If dr IsNot Nothing Then
                MessageBox.Show("项目选错了吧!")
                e.Cancel = True
            End If
        End If
    End If
End If