- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- TextBox自动增加1 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61795)
-- 发布时间：2014/12/19 12:03:00
-- TextBox自动增加1
窗口1客户姓名输入了“张山”点击按钮自动加“-1”，就是“张山-1”，如果输入了“李四-1”，点击按钮自动在1上加1，那么“李四-2”。请师傅们指点。谢谢！
此主题相关图片如下：qq截图20141218195834.png
[此贴子已经被作者于2014-12-19 12:05:16编辑过]
-- 发布时间：2014/12/19 12:09:00
--
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ary() As String = txt.Text.Split("-")
If ary.Length = 1 Then
txt.Text = txt.Text & "-1"
Else
txt.Text = ary(0) & "-" & (val(ary(1))+1)
End If
-- 发布时间：2014/12/19 12:21:00
--
谢谢！