- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何让每5个相同的内容生成同一个编号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42300)
-- 发布时间：2013/11/7 23:27:00
-- 如何让每5个相同的内容生成同一个编号
如何让每5个相同的内容 生成同一个编号，不足5个遇到不同内容再另起 编号
-- 发布时间：2013/11/8 8:27:00
--
呵呵，纸上不谈兵，请设计好表，输入一些测试数据，具体说明问题和需求，否则真不知道如何帮你。
-- 发布时间：2013/12/3 10:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
按这个 单位 身份证信息每五个给一个编号（因为其他可能也会出现相同身份证信息的人），前缀是单位编号，不足五个的打印时补空，这个代码是怎么样的一个思路啊，打印就这块的的编号搞不定了，各位高人帮帮忙了，不胜感激
[此贴子已经被作者于2013-12-3 10:09:47编辑过]
-- 发布时间：2013/12/3 10:11:00
--
不是很明白你意思,你现在是要打印还是要怎么样?
-- 发布时间：2013/12/3 10:38:00
--
想生成重复编号，每五个生成一个同一个编号，条件是根据单位编号和身份证信息来生成，为以后打印取值用
-- 发布时间：2013/12/3 10:41:00
--
不能理解你的需求.
是不是想这样? 1-5行一个编号6-10行一个编号一次类推? 这样做好像没什么意义啊.
-- 发布时间：2013/12/3 10:46:00
--
根据身份证信息1-5个给一个编号，超过5个的另起给一个编号
-- 发布时间：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