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

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

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

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=85470&skin=0

我改成了这样一段代码，但是只提示重复，但内容还可以输入是怎么回事？

Select Case e.DataCol.name
    Case "日期","项目名称"
        Dim flt As String
        Dim dr As DataRow
        Select Case e.DataCol.Name
            Case "日期"
                flt = "(日期 = \'" & e.NewValue & "\') and (项目名称 = \'" & e.DataRow("项目名称") & "\') "
               
            Case "项目名称"
                flt = "(日期 = \'" & e.DataRow("日期") & "\') and (项目名称 = \'" & e.NewValue & "\')"
        End Select
        dr = e.DataTable.Find(flt)
        If dr IsNot Nothing Then
            MessageBox.Show("项目名称重复!")
            e.Cancel = True
        End If
End Select