主题：[求助]本年内piao据号不重复的代码

我还真没搞懂，请有点甜老师再帮我看看，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:本年内不重复piao据号.table

 不是自动帮你生成了么，你新增行啊

 dacolchanging事件

 

If e.DataCol.Name = "日期" AndAlso e.NewValue <> Nothing Then
    Dim d As Date = new Date(e.NewValue.Year, 1, 1)
    Dim fdr As DataRow = e.DataTable.Find("日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "# and piao据号 = '" & e.DataRow("piao据号") & "'")
    If fdr IsNot Nothing Then
        msgbox("重复")
        e.Cancel = True
    End If
Else If e.DataCol.Name = "piao据号" AndAlso e.NewValue <> Nothing AndAlso e.DataRow.IsNull("日期") = False Then
    Dim d As Date = new Date(e.DataRow("日期").Year, 1, 1)
    Dim fdr As DataRow = e.DataTable.Find("日期 >= #" & d & "# and 日期 < #" & d.AddYears(1) & "# and piao据号 = '" & e.NewValue & "'")
    If fdr IsNot Nothing Then
        msgbox("重复")
        e.Cancel = True
    End If
End If

噢，老师！可能是我没有说清楚，我是用手工录入piao据号，而不是自动生成，有时piao据号不是连续的，防止录入错误，我才想这样。

 看13楼

太好了，非常感谢有点甜老师！谢谢！！！