以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动增加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66578)
|
-- 作者:联友
-- 发布时间:2015/4/9 18:04:00
-- 自动增加
点击按钮“验”姓名:01-张山 的01自动加1,变成 02-张山。请指点,谢谢!
此主题相关图片如下:qq截图20150409175757.png
|
-- 作者:有点酸
-- 发布时间:2015/4/9 20:30:00
--
dim s as string = e.form.Controls("控件名").valueif s > "" then dim v() as string = v.split("-") if v.length = 2 then e.form.Controls("控件名").value = format(cint(v(0))+1,"00") & "-" & v(1) end if end if
|
-- 作者:联友
-- 发布时间:2015/4/9 21:02:00
--
此主题相关图片如下:qq截图20150409210048.png
出现错误
|
-- 作者:Bin
-- 发布时间:2015/4/10 8:40:00
--
dim v() as string = s.split("-")
|
-- 作者:良才
-- 发布时间:2015/4/19 12:10:00
--
谢谢
|