主题：求助，自动编号问题

老师，我在数据表page表的datarowadding事件中添加如下代码，想实现按日产生一个编号fentryid，设置为整数类型，但是运行后，所有行的编号都是0，没有自动加一，麻烦帮忙看下问题在哪。

 

If Forms("凭证生成").opened
    Dim dtp As WinForm.DateTimePicker = Forms("凭证生成").Controls("Date1")
    Dim FEID As Integer = DataTables("page").compute("max(FEntryID)","Fdate = '" & dtp.value & "'")
    messagebox.show(feid)
    If FEID = Nothing Then
        e.DataRow("FEntryID") = 0
    Else  e.DataRow("FEntryID") = FEID+1
    End If
    e.DataRow("FGroupID") = "记"
   
End If

messagebox.show(feid) '这里显示什么
每次都显示0

messagebox.show(dtp.value) '这里显示什么
2020-01-04

 

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

点击浏览该文件:k3.rar

不好意思，老师，刚才测试的时候吧fdate的赋值给删除了，加上后测试数字正常从1开始编号

 

但是这样的话不能从0开始编号

 

好了，搞定了，beforsavedatarow事件里加一条整个id编号减一