| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]自动编号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25454) |
| -- 作者：13636600695 -- 发布时间：2012/11/9 16:54:00 -- [求助]自动编号 帮助里的自动编号都是以日期或者类别为前缀，我想用特定的字符为前缀该怎样写代码
比如：SN0001 |
| -- 作者：lin_hailun -- 发布时间：2012/11/9 16:58:00 -- 去掉生成日期的代码，改成你的前缀就行。 |
| -- 作者：lin_hailun -- 发布时间：2012/11/9 17:07:00 -- 拷来一段代码。 Dim dt As DataTable = DataTables() \'表名 Dim drName As String = "" \'列名 Dim left As String = "" \'左边 Dim fomart As String = "" \'格式 Dim max As String Dim idx As Integer max = dt.Compute("Max(" & drName & ")") If max > "" Then idx = CInt(max.SubString(left.Length, fomart.Length)) + 1 Else idx = 1 End If msgbox(left & Format(idx, fomart)) |
| -- 作者：13636600695 -- 发布时间：2012/11/9 18:20:00 -- 没改出来，能说的明白点么 |
| -- 作者：有点甜 -- 发布时间：2012/11/9 20:55:00 -- 看看：
http://www.foxtable.com/help/topics/0107.htm http://www.foxtable.com/help/topics/1443.htm
|
| -- 作者：lin_hailun -- 发布时间：2012/11/9 23:02:00 -- 比如 Dim dt As DataTable = DataTables("表A") Dim drName As String = "第一列" Dim left As String = "SN" Dim fomart As String = "0000" Dim max As String Dim idx As Integer max = dt.Compute("Max(" & drName & ")") If max > "" Then idx = CInt(max.SubString(left.Length, fomart.Length)) + 1 Else idx = 1 End If msgbox(left & Format(idx, fomart)) |
| -- 作者：13636600695 -- 发布时间：2012/11/10 6:13:00 -- 问题还是未能解决，不过还是谢谢帮忙 |