以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]新增行时,级码加001  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172509)

--  作者:miaoqingqing
--  发布时间:2021/10/16 10:02:00
--  [求助]新增行时,级码加001
上当前行级码 001.001
求助新增一行时,级码自动为001.002

上当前行级码 001.001.005
求助新增一行时,级码自动为001.001.006




--  作者:有点蓝
--  发布时间:2021/10/16 10:18:00
--  
datarowadding事件

dim r as row = tables("xx").rows(tables("xx").rows.count - 1)
dim sr() as string = r("级码").split(".")
sr(sr.lenth - 1) = format(cint(sr(sr.lenth - 1)) + 1,"000")
e.datarow("级码") = string.join(".",sr)

--  作者:miaoqingqing
--  发布时间:2021/10/18 17:06:00
--  回复:(有点蓝)datarowadding事件dim r as row = ta...
群主,上面代码如果表1行都没有报错。
求助增加当前表为空时,不执行

--  作者:有点蓝
--  发布时间:2021/10/18 17:13:00
--  
if tables("xx").rows.count > 0 then
……