Foxtable(狐表)用户栏目专家坐堂 → 如何让每5个相同的内容生成同一个编号


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

主题:如何让每5个相同的内容生成同一个编号

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


加好友 发短信
等级:幼狐 帖子:107 积分:1253 威望:0 精华:0 注册:2013/9/23 13:47:00
如何让每5个相同的内容生成同一个编号  发帖心情 Post By:2013/11/7 23:27:00 [只看该作者]

如何让每5个相同的内容 生成同一个编号,不足5个遇到不同内容再另起 编号

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


加好友 发短信
等级:管理员 帖子:47497 积分:251397 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/11/8 8:27:00 [只看该作者]

呵呵,纸上不谈兵,请设计好表,输入一些测试数据,具体说明问题和需求,否则真不知道如何帮你。

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


加好友 发短信
等级:幼狐 帖子:107 积分:1253 威望:0 精华:0 注册:2013/9/23 13:47:00
  发帖心情 Post By:2013/12/3 10:08:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar

按这个 单位 身份证信息每五个给一个编号(因为其他可能也会出现相同身份证信息的人),前缀是单位编号,不足五个的打印时补空,这个代码是怎么样的一个思路啊,打印就这块的的编号搞不定了,各位高人帮帮忙了,不胜感激
[此贴子已经被作者于2013-12-3 10:09:47编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/3 10:11:00 [只看该作者]

不是很明白你意思,你现在是要打印还是要怎么样?

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


加好友 发短信
等级:幼狐 帖子:107 积分:1253 威望:0 精华:0 注册:2013/9/23 13:47:00
  发帖心情 Post By:2013/12/3 10:38:00 [只看该作者]

想生成重复编号,每五个生成一个同一个编号,条件是根据单位编号和身份证信息来生成,为以后打印取值用


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/12/3 10:41:00 [只看该作者]

不能理解你的需求.

是不是想这样? 1-5行一个编号6-10行一个编号一次类推?  这样做好像没什么意义啊.

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


加好友 发短信
等级:幼狐 帖子:107 积分:1253 威望:0 精华:0 注册:2013/9/23 13:47:00
  发帖心情 Post By:2013/12/3 10:46:00 [只看该作者]

根据身份证信息1-5个给一个编号,超过5个的另起给一个编号

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


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/12/3 12:31:00 [只看该作者]

Select Case e.DataCol.name
    Case "身份证号","单位编号"
        Dim dr As DataRow = e.DataTable.Find("身份证号='" & e.DataRow("身份证号") & "' And 单位编号 ='" & e.DataRow("单位编号") & "' And  _identify <> " & e.DataRow("_identify"))
        If dr IsNot Nothing Then
            e.DataRow("编号")=dr("编号")
        End If
End Select

 回到顶部