以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动增加  (http://foxtable.com/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("控件名").value
if 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
--  
谢谢