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

 参考 http://www.foxtable.com/help/topics/2403.htm

DatarowAdding事件，加入代码

Dim bh As String = Date.Today.Year
Dim max As String = e.DataTable.Compute("max(第一列)", "第一列 like '" & bh & "%'")
Dim idx As Integer = 0
If max > "" Then
    idx = max.SubString(bh.Length)
End If

e.DataRow("第一列") = bh & format(idx+1, "000000")

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

 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