Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，自动编号问题


  共有3084人关注过本帖树形打印复制链接

主题：求助，自动编号问题
帅哥哟，离线，有人找我吗？
frankcat
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：448 威望：0 精华：0 注册：2019/8/7 20:12:00 		求助，自动编号问题  发帖心情 Post By：2020/1/8 11:40:00 [只看该作者]

老师，我在数据表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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/8 11:51:00 [只看该作者]

If Forms("凭证生成").opened
    Dim dtp As WinForm.DateTimePicker = Forms("凭证生成").Controls("Date1")

    messagebox.show(dtp.value) '这里显示什么
    Dim FEID As Integer = DataTables("page").compute("max(FEntryID)","Fdate = '" & dtp.value & "'")
    messagebox.show(feid) '这里显示什么
    e.DataRow("FEntryID") = FEID+1
    e.DataRow("FGroupID") = "记"
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
frankcat
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：448 威望：0 精华：0 注册：2019/8/7 20:12:00 		  发帖心情 Post By：2020/1/8 12:01:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/8 12:03:00 [只看该作者]

messagebox.show(dtp.value) '这里显示什么

这个日期有其它数据吗
 回到顶部
帅哥哟，离线，有人找我吗？
frankcat
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：448 威望：0 精华：0 注册：2019/8/7 20:12:00 		  发帖心情 Post By：2020/1/8 12:04:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/1/8 12:05:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟，离线，有人找我吗？
frankcat
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：448 威望：0 精华：0 注册：2019/8/7 20:12:00 		  发帖心情 Post By：2020/1/8 12:13:00 [只看该作者]

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:k3.rar
 回到顶部
帅哥哟，离线，有人找我吗？
frankcat
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：448 威望：0 精华：0 注册：2019/8/7 20:12:00 		  发帖心情 Post By：2020/1/8 12:27:00 [只看该作者]

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
frankcat
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：448 威望：0 精华：0 注册：2019/8/7 20:12:00 		  发帖心情 Post By：2020/1/8 12:28:00 [只看该作者]

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
frankcat
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：52 积分：448 威望：0 精华：0 注册：2019/8/7 20:12:00 		  发帖心情 Post By：2020/1/8 13:24:00 [只看该作者]

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

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07227 秒, 5 次数据查询