- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列自动加1 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76048)
-- 发布时间：2015/10/20 16:57:00
-- 列自动加1
有个基本信息表，表有姓名列，假如输入第一个了“张山”，在张山左边自动加“01-”如：01-张山，输入第二个了“张山”，在张山左边自动加“02-”如：02-张山，依此类推。请指点新增代码，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:姓名.zip |
[此贴子已经被作者于2015/10/20 16:58:34编辑过]
-- 发布时间：2015/10/20 17:03:00
--
Dim str As String = e.Form.Controls("姓名").Text
Dim count As Integer = DataTables("基本信息").Compute("count(姓名)", "姓名 like \'%-" & str & "%\'") + 1
Dim nr As DataRow = DataTables("基本信息").AddNew
nr("姓名") = format(count, "00-" & str)
-- 发布时间：2015/10/20 19:49:00
--
谢谢