以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  clone  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138144)
--  作者：hawkgo
--  发布时间：2019/7/23 21:05:00
--  clone

我在窗口上设计了一个按钮：增加一项，
代码：
\'Tables("接收记录").Current.Clone

目的是针对目前的记录在克隆一行，同时这些记录中有一列“批号”，格式如下：A123S1,增加一批后需要自动改成A123S2,在增加就成为A123S3，类推，请问如何再增加一句实现这个目的？
--  作者：有点蓝
--  发布时间：2019/7/23 21:18:00
--  
Dim r As Row = Tables("表A").Current.Clone
Dim s As String = r("批号")
r("批号") = s.SubString(0,s.Length- 1) & (val(s(s.Length - 1))+1)
--  作者：hawkgo
--  发布时间：2019/7/24 12:45:00
--  
谢谢！