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

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

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

 

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

代码不要写到DataColChanged事件，而是要写到DataColChanging事件。

哦，把代码换到DataColChanging中可以了，一直以为是代码错了，弄了一上午也没弄好，谢谢了老师！