主题：每个产品每日 只能输入一条信息 求助

DataColChaging事件

If e.DataCol.name = "姓名" OrElse e.DataCol.name = "日期" Then
    Dim fdr As DataRow
    If e.DataCol.name = "姓名" Then
        fdr = e.DataTable.Find("姓名 = '" & e.newvalue & " And 日期 = #" & e.DataRow("日期") & "#")
    Else
        fdr = e.DataTable.Find("姓名 = '" & e.DataRow("姓名") & " and 日期 = #" & e.newvalue & "#")
    End If
    If fdr IsNot Nothing Then
        msgbox("已重复")
        e.cancel = True
    End If
End If

http://www.foxtable.com/webhelp/scr/2481.htm

三个月到半年。换一台电脑或重装系统，可以继续试用。