Foxtable(狐表)用户栏目专家坐堂 → [求助]本年内piao据号不重复的代码


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

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

帅哥哟,离线,有人找我吗?
ZHX88863808
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
[求助]本年内piao据号不重复的代码  发帖心情 Post By:2014/11/12 12:04:00 [只看该作者]

表A中有一日期列和一piao据列,因需要本年内的piao据号不能重复,但隔年的piao据号可以重复,请前辈老师帮忙写个代码,谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
jspta
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1732 积分:11266 威望:0 精华:0 注册:2011/12/15 22:06:00
  发帖心情 Post By:2014/11/12 12:44:00 [只看该作者]

直接设计成都不重复就没这个烦恼了

 回到顶部
帅哥哟,离线,有人找我吗?
jialihaha
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:998 积分:6656 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2014/11/12 13:42:00 [只看该作者]

http://www.foxtable.com/help/topics/2481.htm

 回到顶部
帅哥哟,离线,有人找我吗?
jialihaha
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:998 积分:6656 威望:0 精华:0 注册:2014/10/20 11:06:00
  发帖心情 Post By:2014/11/12 13:43:00 [只看该作者]

禁止多列

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/12 14:16:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
ZHX88863808
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2014/11/12 18:09:00 [只看该作者]

谢谢各位前辈老师,但是如果运用时间编号或者多列不重复,录入单据时因录入错误也不会知道,导制以后查询数据就有可能不准确,单位一套单据用完,会用下一套单据,但两套或更多套单据有可能重复,但每套单据单位一般使用都在一年以上,所以我认为如果能用代码设置成当年单据号可以不重复,隔年可以重复那是最好不过了,如果这个能行的话,很希望前辈老师能帮忙写个代码,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/12 19:07:00 [只看该作者]

 5楼就是啊,根据你的需要改一下来用啊

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/12 19:11:00 [只看该作者]

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")


 回到顶部
帅哥哟,离线,有人找我吗?
ZHX88863808
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:449 积分:3330 威望:0 精华:0 注册:2012/11/10 7:00:00
  发帖心情 Post By:2014/11/12 19:20:00 [只看该作者]

老师刚才试了一下未成功,请再帮我修改一下,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/12 19:22:00 [只看该作者]

8楼就是

 回到顶部
总数 16 1 2 下一页