| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]连续编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39697) |
| -- 作者：易服 -- 发布时间：2013/8/30 11:06:00 -- [求助]连续编号 有一个乡的数据，有“村名”、“小班号”的列。要求“小班号”以村名为单位连续编号（三位数）从001开始。求代码？ |
| -- 作者：Bin -- 发布时间：2013/8/30 11:08:00 -- 上例子. |
| -- 作者：易服 -- 发布时间：2013/8/30 11:11:00 -- 外部数据库太大，表达已经很清楚了。 |
| -- 作者：Bin -- 发布时间：2013/8/30 11:13:00 -- 可以上个内部数据源的,放点简单数据做测试即可. 表达再清楚也只是 纸上谈兵
|
| -- 作者：易服 -- 发布时间：2013/8/30 11:22:00 -- Static lCount as long
以上代码不分村，从1开始 |
| -- 作者：有点甜 -- 发布时间：2013/8/30 20:35:00 -- 不需要全部的数据，你做一个简单的例子就行了。 说明下，是什么操作以后生成编号的。如果是按钮，就好做了。 Dim cname As String = "" Dim count As Integer = 1 For Each dr As DataRow In DataTables("xxx").Select("村名 is not null", "村名") If cname <> dr("村名") Then count = 1 cname = dr("村名") End If dr("小班号") = cname & Format(count, "000") Next
|